Commit 75ccb503 authored by François Thiré's avatar François Thiré

Having a Parser for lFMT would be a good idea

parent 00b260cc
......@@ -8,8 +8,8 @@ Parameter o : Var.
Parameter arrow : Var.
Parameter η : Var.
Parameter impl : Var.
Parameter pi : Var.
Parameter ϵ : Var.
Parameter fa : Var.
Parameter ε : Var.
Definition STT :=
......@@ -19,10 +19,11 @@ Definition STT :=
o : # type,
arrow : Π (# type) ~ Π (# type) ~ (# type),
η : Π (# type) ~ TType,
ε : Π ((# η) @ (# o)) ~ ((# η) @ (# o)),
impl : Π (TApp (# η) (# o)) ~ Π (TApp (# η) (# o)) ~ (TApp (# η) (# o)),
pi :
Π (# type) ~ Π (Π (TApp (# η) (TBound 0)) ~ (TApp (# η) (# o))) ~ (TApp (# η) (# o))
(* TODO *)
fa :
Π (# type) ~ Π (Π (TApp (# η) (TBound 0)) ~ (TApp (# η) (# o))) ~ (TApp (# η) (# o)),
λ (# type) ~ (λ (# type) ~ (# η) @ ((# arrow) @ (? 0) @ (? 1))) λ (# type) ~ (λ (# type) ~ (Π ((# η) @ (? 0)) ~ (# η) @ (? 1)))
.
Theorem STT_WF : STT .
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment