yiyunliu/sp-eta-postpone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Finish unmorphing

Browse source
This commit is contained in:
Yiyun Liu 2025-02-21 14:35:34 -05:00
parent fd0b48073d
commit 396bddc8b3
2 changed files with 159 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

21
theories/common.v
View file

@ -32,6 +32,9 @@ Proof.
move : m ξ b. elim : n / a => //; try solve_anti_ren.
Qed.
Inductive HF : Set :=
| H_Pair | H_Abs | H_Univ | H_Bind (p : BTag) | H_Nat | H_Suc | H_Zero | H_Bot.
Definition ishf {n} (a : PTm n) :=
match a with
| PPair _ _ => true
@ -44,6 +47,18 @@ Definition ishf {n} (a : PTm n) :=
| _ => false
end.
Definition toHF {n} (a : PTm n) :=
match a with
| PPair _ _ => H_Pair
| PAbs _ => H_Abs
| PUniv _ => H_Univ
| PBind p _ _ => H_Bind p
| PNat => H_Nat
| PSuc _ => H_Suc
| PZero => H_Zero
| _ => H_Bot
end.
Fixpoint ishne {n} (a : PTm n) :=
match a with
| VarPTm _ => true
@ -64,6 +79,12 @@ Definition ispair {n} (a : PTm n) :=
| _ => false
end.
Definition isnat {n} (a : PTm n) := if a is PNat then true else false.
Definition iszero {n} (a : PTm n) := if a is PZero then true else false.
Definition issuc {n} (a : PTm n) := if a is PSuc _ then true else false.
Definition isabs {n} (a : PTm n) :=
match a with
| PAbs _ => true