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

Make progress on wt_unique

Browse source
This commit is contained in:
Yiyun Liu 2025-04-03 23:20:49 -04:00
parent fbbce90304
commit 5eb1f9df0b
6 changed files with 145 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

14
theories/fp_red.v
View file

@ -2147,6 +2147,20 @@ Proof.
apply join_symmetric. apply Join.FromPar. apply Par.AppEta. apply Par.refl.
Qed.
(* Lemma abs_inj a b : *)
(* join a b <-> join (PAbs a) (PAbs b). *)
(* Proof. *)
(* split. *)
(* transitivity (join a (PApp (ren_PTm shift (PAbs b)) (VarPTm var_zero))); last by rewrite abs_eq. *)
(* have h : RPar.R (PApp (ren_PTm shift (PAbs b)) (VarPTm var_zero)) (subst_PTm (scons (VarPTm var_zero) VarPTm) (ren_PTm (upRen_PTm_PTm shift) b)). *)
(* apply RPar.AppAbs. rewrite -/ren_PTm. asimpl. substify. asimpl. apply RPar.refl. apply RPar.refl. *)
(* split. *)
(* move => h1. apply : join_transitive; eauto. *)
(* apply join_symmetric. *)
(* apply *)
Lemma pair_eq (a0 a1 b : PTm) :
join (PPair a0 a1) b <-> join a0 (PProj PL b) /\ join a1 (PProj PR b).
Proof.