Finish the admitted inversion lemmas that depend on SN
This commit is contained in:
parent
9bd554b513
commit
67f91970d6
2 changed files with 139 additions and 20 deletions
|
@ -293,6 +293,12 @@ Proof.
|
|||
apply N_β'. by asimpl. eauto.
|
||||
Qed.
|
||||
|
||||
Lemma ne_nf_embed n (a : PTm n) :
|
||||
(ne a -> SNe a) /\ (nf a -> SN a).
|
||||
Proof.
|
||||
elim : n / a => //=; hauto qb:on ctrs:SNe, SN.
|
||||
Qed.
|
||||
|
||||
#[export]Hint Constructors SN SNe TRedSN : sn.
|
||||
|
||||
Ltac2 rec solve_anti_ren () :=
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue