(* Properties with generic equivalence for local environments ***************)
lemma cpms_reqg_conf_sn (S) (h) (n) (G) (L1) (L2):
- â\88\80T1,T2. â\9dªG,L1â\9d« ⊢ T1 ➡*[h,n] T2 →
+ â\88\80T1,T2. â\9d¨G,L1â\9d© ⊢ T1 ➡*[h,n] T2 →
L1 ≛[S,T1] L2 → L1 ≛[S,T2] L2.
/3 width=5 by cpms_fwd_cpxs, cpxs_reqg_conf_sn/ qed-.
lemma cpms_reqg_conf_dx (S) (h) (n) (G) (L1) (L2):
reflexive … S → symmetric … S →
- â\88\80T1,T2. â\9dªG,L2â\9d« ⊢ T1 ➡*[h,n] T2 →
+ â\88\80T1,T2. â\9d¨G,L2â\9d© ⊢ T1 ➡*[h,n] T2 →
L1 ≛[S,T1] L2 → L1 ≛[S,T2] L2.
/3 width=5 by cpms_fwd_cpxs, cpxs_reqg_conf_dx/ qed-.