Finish the admitted inversion lemmas that depend on SN

This commit is contained in:
Yiyun Liu 2025-02-15 14:04:04 -05:00
parent 9bd554b513
commit 67f91970d6
2 changed files with 139 additions and 20 deletions

View file

@ -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 () :=