Start the proof that joinability preserves meaning
This commit is contained in:
parent
7f29fe0347
commit
0e254c5ac3
2 changed files with 73 additions and 62 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue