]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/dynamic/nta_cpcs.ma
update in static_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / dynamic / nta_cpcs.ma
index 4e505925c9cc92ec08528f72af7bf719dfda80aa..d03ca146b064fa8cd64feaa1f0ff62be81cbee81 100644 (file)
@@ -54,7 +54,7 @@ qed-.
 
 lemma nta_inv_ldec_sn_cnv (h) (a) (G) (K) (V):
       ∀X2. ⦃G,K.ⓛV⦄ ⊢ #0 :[h,a] X2 →
-      â\88\83â\88\83U. â¦\83G,Kâ¦\84 â\8a¢ V ![h,a] & â¬\86*[1] V ≘ U & ⦃G,K.ⓛV⦄ ⊢ U ⬌*[h] X2 & ⦃G,K.ⓛV⦄ ⊢ X2 ![h,a].
+      â\88\83â\88\83U. â¦\83G,Kâ¦\84 â\8a¢ V ![h,a] & â\87§*[1] V ≘ U & ⦃G,K.ⓛV⦄ ⊢ U ⬌*[h] X2 & ⦃G,K.ⓛV⦄ ⊢ X2 ![h,a].
 #h #a #G #Y #X #X2 #H
 elim (cnv_inv_cast … H) -H #X1 #HX2 #H1 #HX21 #H2
 elim (cnv_inv_zero … H1) -H1 #Z #K #V #HV #H destruct