Rename the term constructors
This commit is contained in:
parent
1f7460fd11
commit
255bd4acbf
4 changed files with 1323 additions and 698 deletions
12
syntax.sig
12
syntax.sig
|
@ -1,4 +1,5 @@
|
||||||
nat : Type
|
nat : Type
|
||||||
|
PTm(VarPTm) : Type
|
||||||
Tm(VarTm) : Type
|
Tm(VarTm) : Type
|
||||||
PTag : Type
|
PTag : Type
|
||||||
TTag : Type
|
TTag : Type
|
||||||
|
@ -8,14 +9,21 @@ PL : PTag
|
||||||
PR : PTag
|
PR : PTag
|
||||||
TPi : TTag
|
TPi : TTag
|
||||||
TSig : TTag
|
TSig : TTag
|
||||||
|
|
||||||
|
PAbs : (bind PTm in PTm) -> PTm
|
||||||
|
PApp : PTm -> PTm -> PTm
|
||||||
|
PPair : PTm -> PTm -> PTm
|
||||||
|
PProj : PTag -> PTm -> PTm
|
||||||
|
PConst : TTag -> PTm
|
||||||
|
PUniv : nat -> PTm
|
||||||
|
PBot : PTm
|
||||||
|
|
||||||
Abs : (bind Tm in Tm) -> Tm
|
Abs : (bind Tm in Tm) -> Tm
|
||||||
App : Tm -> Tm -> Tm
|
App : Tm -> Tm -> Tm
|
||||||
Pair : Tm -> Tm -> Tm
|
Pair : Tm -> Tm -> Tm
|
||||||
Proj : PTag -> Tm -> Tm
|
Proj : PTag -> Tm -> Tm
|
||||||
TBind : TTag -> Tm -> (bind Tm in Tm) -> Tm
|
TBind : TTag -> Tm -> (bind Tm in Tm) -> Tm
|
||||||
Const : TTag -> Tm
|
|
||||||
Univ : nat -> Tm
|
Univ : nat -> Tm
|
||||||
Bot : Tm
|
|
||||||
BVal : bool -> Tm
|
BVal : bool -> Tm
|
||||||
Bool : Tm
|
Bool : Tm
|
||||||
If : Tm -> Tm -> Tm -> Tm
|
If : Tm -> Tm -> Tm -> Tm
|
||||||
|
|
File diff suppressed because it is too large
Load diff
|
@ -18,3 +18,25 @@ a0 >> a1
|
||||||
| |
|
| |
|
||||||
v v
|
v v
|
||||||
b0 >> b1
|
b0 >> b1
|
||||||
|
|
||||||
|
|
||||||
|
prov x (x, x)
|
||||||
|
|
||||||
|
prov x b
|
||||||
|
|
||||||
|
|
||||||
|
a => b
|
||||||
|
|
||||||
|
prov x a
|
||||||
|
|
||||||
|
prov y b
|
||||||
|
|
||||||
|
prov x c
|
||||||
|
prov y c
|
||||||
|
|
||||||
|
extract c = x
|
||||||
|
extract c = y
|
||||||
|
|
||||||
|
prov x b
|
||||||
|
|
||||||
|
pr
|
||||||
|
|
1132
theories/fp_red.v
1132
theories/fp_red.v
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue