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

Side step the need for join subst

Browse source
This commit is contained in:
Yiyun Liu 2025-02-05 20:36:39 -05:00
parent 7cc6435ea3
commit 1997e8bc12
2 changed files with 39 additions and 1 deletions
theories
fp_red.v

12
theories/fp_red.v
View file

@ -2139,4 +2139,16 @@ Module DJoin.
hauto lq:on rew:off use:REReds.bind_inv.
Qed.
Lemma FromRRed0 n (a b : PTm n) :
RRed.R a b -> R a b.
Proof.
hauto lq:on ctrs:rtc use:RERed.FromBeta unfold:R.
Qed.
Lemma FromRRed1 n (a b : PTm n) :
RRed.R b a -> R a b.
Proof.
hauto lq:on ctrs:rtc use:RERed.FromBeta unfold:R.
Qed.
End DJoin.