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

Finish renaming and preservation

Browse source
This commit is contained in:
Yiyun Liu 2025-02-25 20:18:40 -05:00
parent cc0e9219c4
commit 96bc223b0a
3 changed files with 142 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
theories/common.v
View file

@ -1,4 +1,4 @@
Require Import Autosubst2.fintype Autosubst2.syntax ssreflect.
Require Import Autosubst2.fintype Autosubst2.syntax Autosubst2.core ssreflect.
From Ltac2 Require Ltac2.
Import Ltac2.Notations.
Import Ltac2.Control.
@ -106,3 +106,7 @@ Proof. case : a => //=. Qed.
Definition ishne_ren n m (a : PTm n) (ξ : fin n -> fin m) :
ishne (ren_PTm ξ a) = ishne a.
Proof. move : m ξ. elim : n / a => //=. Qed.
Lemma renaming_shift n m Γ (ρ : fin n -> PTm m) A :
renaming_ok (funcomp (ren_PTm shift) (scons (subst_PTm ρ A) Γ)) Γ shift.
Proof. sfirstorder. Qed.