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

Set up interpretation for typed equality

Browse source
This commit is contained in:
Yiyun Liu 2025-02-06 13:21:30 -05:00
parent cd3b4981c7
commit fecac84977
2 changed files with 63 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
theories/fp_red.v
View file

@ -2176,6 +2176,12 @@ Module DJoin.
R (PProj p a0) (PProj p a1).
Proof. hauto q:on use:REReds.ProjCong. Qed.
Lemma BindCong n p (A0 A1 : PTm n) B0 B1 :
R A0 A1 ->
R B0 B1 ->
R (PBind p A0 B0) (PBind p A1 B1).
Proof. hauto q:on use:REReds.BindCong. Qed.
Lemma FromRedSNs n (a b : PTm n) :
rtc TRedSN a b ->
R a b.