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

Finish the pair pair case

Browse source
This commit is contained in:
Yiyun Liu 2025-02-15 16:39:05 -05:00
parent 9d951a24c5
commit 926c2284a5
2 changed files with 150 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
theories/fp_red.v
View file

@ -1554,6 +1554,13 @@ Module EJoin.
hauto lq:on use:EReds.app_inv.
Qed.
Lemma hne_proj_inj n p0 p1 (a0 a1 : PTm n) :
R (PProj p0 a0) (PProj p1 a1) ->
p0 = p1 /\ R a0 a1.
Proof.
hauto lq:on rew:off use:EReds.proj_inv.
Qed.
End EJoin.
Module RERed.