Start the proof that joinability preserves meaning

This commit is contained in:
Yiyun Liu 2025-02-05 15:47:51 -05:00
parent 7f29fe0347
commit 0e254c5ac3
2 changed files with 73 additions and 62 deletions

View file

@ -565,6 +565,11 @@ Module RRed.
R a b -> False.
Proof. move/[swap]. induction 1; hauto qb:on inv:PTm. Qed.
Lemma FromRedSN n (a b : PTm n) :
TRedSN a b ->
RRed.R a b.
Proof. induction 1; hauto lq:on ctrs:RRed.R. Qed.
End RRed.
Module RPar.