(* Properties with context-sensitive free variables *************************)
-axiom frees_pair_flat: ∀L,T,f1,I1,V1. L.ⓑ{I1}V1 ⊢ 𝐅*⦃T⦄ ≡ f1 →
- ∀f2,I2,V2. L.ⓑ{I2}V2 ⊢ 𝐅*⦃T⦄ ≡ f2 →
- ∀f0. f1 ⋓ f2 ≡ f0 →
- ∀I0,I. L.ⓑ{I0}ⓕ{I}V1.V2 ⊢ 𝐅*⦃T⦄ ≡ f0.
-
-(* Basic_2A1: was: lpx_cpx_frees_trans *)
+(* Basic_2A1: uses: lpx_cpx_frees_trans *)
lemma cpx_frees_conf_lfpx: ∀h,G,L1,T1,f1. L1 ⊢ 𝐅*⦃T1⦄ ≡ f1 →
- â\88\80L2. L1 ⦻*[cpx h G, cfull, f1] L2 →
+ â\88\80L2. L1 ⪤*[cpx h G, cfull, f1] L2 →
∀T2. ⦃G, L1⦄ ⊢ T1 ⬈[h] T2 →
∃∃f2. L2 ⊢ 𝐅*⦃T2⦄ ≡ f2 & f2 ⊆ f1.
#h #G #L1 #T1 @(fqup_wf_ind_eq … G L1 T1) -G -L1 -T1
]
qed-.
-(* Basic_2A1: was: cpx_frees_trans *)
+(* Basic_2A1: uses: cpx_frees_trans *)
lemma cpx_frees_conf: ∀h,G. R_frees_confluent (cpx h G).
/3 width=7 by cpx_frees_conf_lfpx, lexs_refl/ qed-.
-(* Basic_2A1: was: lpx_frees_trans *)
+(* Basic_2A1: uses: lpx_frees_trans *)
lemma lfpx_frees_conf: ∀h,G. lexs_frees_confluent (cpx h G) cfull.
/2 width=7 by cpx_frees_conf_lfpx/ qed-.