]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/apps_2/examples/ex_cnv_eta.ma
update in ground_2, static_2, basic_2, apps_2, alpha_1
[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / examples / ex_cnv_eta.ma
index 17be9f2dd49ebbe13d8c47acee513bd1727ca5b5..1eb9cd38b800102d0d6b990bf6af4384fd2c42a6 100644 (file)
@@ -21,7 +21,7 @@ include "basic_2/dynamic/cnv.ma".
 
 (* Note: extended validity of a closure, height of cnv_appl > 1 *)
 lemma cnv_extended (h) (p) (G) (L):
-      â\88\80s. â¦\83G,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b{p}â\8b\86s.â\8b\86s.â\93\9b#0â¦\84 ⊢ ⓐ#2.#0 ![h,𝛚].
+      â\88\80s. â\9dªG,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b[p]â\8b\86s.â\8b\86s.â\93\9b#0â\9d« ⊢ ⓐ#2.#0 ![h,𝛚].
 #h #p #G #L #s
 @(cnv_appl … 2 p … (⋆s) … (⋆s))
 [ //
@@ -34,7 +34,7 @@ qed.
 
 (* Note: restricted validity of the η-expanded closure, height of cnv_appl = 1 **)
 lemma cnv_restricted (h) (p) (G) (L):
-      â\88\80s. â¦\83G,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b{p}â\8b\86s.â\8b\86s.â\93\9bâ\93\9b{p}â\8b\86s.â\93\90#0.#1â¦\84 ⊢ ⓐ#2.#0 ![h,𝟐].
+      â\88\80s. â\9dªG,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b[p]â\8b\86s.â\8b\86s.â\93\9bâ\93\9b[p]â\8b\86s.â\93\90#0.#1â\9d« ⊢ ⓐ#2.#0 ![h,𝟐].
 #h #p #G #L #s
 @(cnv_appl … 1 p … (⋆s) … (ⓐ#0.#2))
 [ //