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

Finish preservation

Browse source
This commit is contained in:
Yiyun Liu 2025-02-25 22:35:59 -05:00
parent bb39f157ba
commit 687d1be03f
6 changed files with 74 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
theories/fp_red.v
View file

@ -2977,6 +2977,11 @@ Module DJoin.
R (PInd P0 a0 b0 c0) (PInd P1 a1 b1 c1).
Proof. hauto q:on use:REReds.IndCong. Qed.
Lemma SucCong n (a0 a1 : PTm n) :
R a0 a1 ->
R (PSuc a0) (PSuc a1).
Proof. qauto l:on use:REReds.SucCong. Qed.
Lemma FromRedSNs n (a b : PTm n) :
rtc TRedSN a b ->
R a b.