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

Save

Browse source
This commit is contained in:
Yiyun Liu 2025-03-10 15:35:43 -04:00
parent 849d19708e
commit 4cbd2ac0fd
2 changed files with 22 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
theories/common.v
View file

@ -129,9 +129,9 @@ Definition tm_nonconf (a b : PTm) : bool :=
| _, PPair _ _ => ~~ ishf a
| PZero, PZero => true
| PSuc _, PSuc _ => true
| PApp _ _, PApp _ _ => (~~ ishf a) && (~~ ishf b)
| PProj _ _, PProj _ _ => (~~ ishf a) && (~~ ishf b)
| PInd _ _ _ _, PInd _ _ _ _ => (~~ ishf a) && (~~ ishf b)
| PApp _ _, PApp _ _ => true
| PProj _ _, PProj _ _ => true
| PInd _ _ _ _, PInd _ _ _ _ => true
| PNat, PNat => true
| PUniv _, PUniv _ => true
| PBind _ _ _, PBind _ _ _ => true
@ -140,8 +140,6 @@ Definition tm_nonconf (a b : PTm) : bool :=
Definition tm_conf (a b : PTm) := ~~ tm_nonconf a b.
Definition ishf_ren (a : PTm) (ξ : nat -> nat) :
ishf (ren_PTm ξ a) = ishf a.
Proof. case : a => //=. Qed.
@ -262,8 +260,8 @@ Inductive algo_dom : PTm -> PTm -> Prop :=
algo_dom a b
| A_Conf a b :
HRed.nf a ->
HRed.nf b ->
ishf a ->
ishf b ->
tm_conf a b ->
algo_dom a b
@ -296,6 +294,12 @@ with algo_dom_neu : PTm -> PTm -> Prop :=
algo_dom_r c0 c1 ->
algo_dom_neu (PInd P0 u0 b0 c0) (PInd P1 u1 b1 c1)
| A_NeuConf a b :
ishne a ->
ishne b ->
tm_conf a b ->
algo_dom_neu a b
with algo_dom_r : PTm -> PTm -> Prop :=
| A_NfNf a b :
algo_dom a b ->