X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Ftdeq_tdeq.ma;h=80d13f4e6cbcbe45f088ea698747ff6b4d69a14f;hp=bdb48def69a758cd827d2b26693ee503a2a20565;hb=222044da28742b24584549ba86b1805a87def070;hpb=1de84a809c842fbc8a4e0d92b9bc61763c0e6fae diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma index bdb48def6..80d13f4e6 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma @@ -35,16 +35,16 @@ theorem tdeq_canc_sn: ∀h,o. left_cancellable … (tdeq h o). theorem tdeq_canc_dx: ∀h,o. right_cancellable … (tdeq h o). /3 width=3 by tdeq_trans, tdeq_sym/ qed-. -theorem tdeq_repl: ∀h,o,T1,T2. T1 ≡[h, o] T2 → - ∀U1. T1 ≡[h, o] U1 → ∀U2. T2 ≡[h, o] U2 → U1 ≡[h, o] U2. +theorem tdeq_repl: ∀h,o,T1,T2. T1 ≛[h, o] T2 → + ∀U1. T1 ≛[h, o] U1 → ∀U2. T2 ≛[h, o] U2 → U1 ≛[h, o] U2. /3 width=3 by tdeq_canc_sn, tdeq_trans/ qed-. (* Negated main properies ***************************************************) -theorem tdeq_tdneq_trans: ∀h,o,T1,T. T1 ≡[h, o] T → ∀T2. (T ≡[h, o] T2 → ⊥) → - T1 ≡[h, o] T2 → ⊥. +theorem tdeq_tdneq_trans: ∀h,o,T1,T. T1 ≛[h, o] T → ∀T2. (T ≛[h, o] T2 → ⊥) → + T1 ≛[h, o] T2 → ⊥. /3 width=3 by tdeq_canc_sn/ qed-. -theorem tndeq_tdeq_canc_dx: ∀h,o,T1,T. (T1 ≡[h, o] T → ⊥) → ∀T2. T2 ≡[h, o] T → - T1 ≡[h, o] T2 → ⊥. +theorem tdneq_tdeq_canc_dx: ∀h,o,T1,T. (T1 ≛[h, o] T → ⊥) → ∀T2. T2 ≛[h, o] T → + T1 ≛[h, o] T2 → ⊥. /3 width=3 by tdeq_trans/ qed-.