X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fexamples%2Fex_cpr_omega.ma;h=68166c915850d2d9604fe022f04a94e574373490;hb=a961a1237063702ed9c32a9a4b7994671cb40818;hp=72869603d9b0abebb5c6a656e36bd3cd75363042;hpb=106b25f0206beedc4e416d223accb1308ca7161b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/examples/ex_cpr_omega.ma b/matita/matita/contribs/lambdadelta/basic_2/examples/ex_cpr_omega.ma index 72869603d..68166c915 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/examples/ex_cpr_omega.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/examples/ex_cpr_omega.ma @@ -26,8 +26,8 @@ definition Omega2: term → term ≝ λW. +ⓓⓝW.(Delta W).ⓐ#0.#0. (* Basic properties *********************************************************) -lemma Delta_lift: ∀W1,W2,d,e. ⬆[d, e] W1 ≡ W2 → - ⬆[d, e] (Delta W1) ≡ (Delta W2). +lemma Delta_lift: ∀W1,W2,l,m. ⬆[l, m] W1 ≡ W2 → + ⬆[l, m] (Delta W1) ≡ (Delta W2). /4 width=1 by lift_flat, lift_bind, lift_lref_lt/ qed. (* Main properties **********************************************************)