]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/iso/props.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / iso / props.ma
index af521d0739bc2bd5bd950111e83096404c679f8d..baef0f83321523681438f4b088596fbead267dfe 100644 (file)
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/iso/fwd.ma".
+include "basic_1/T/fwd.ma".
 
-theorem iso_refl:
+include "basic_1/iso/fwd.ma".
+
+lemma iso_refl:
  \forall (t: T).(iso t t)
 \def
  \lambda (t: T).(T_ind (\lambda (t0: T).(iso t0 t0)) (\lambda (n: 
 nat).(iso_sort n n)) (\lambda (n: nat).(iso_lref n n)) (\lambda (k: 
 K).(\lambda (t0: T).(\lambda (_: (iso t0 t0)).(\lambda (t1: T).(\lambda (_: 
 (iso t1 t1)).(iso_head t0 t0 t1 t1 k)))))) t).
-(* COMMENTS
-Initial nodes: 59
-END *)
 
 theorem iso_trans:
  \forall (t1: T).(\forall (t2: T).((iso t1 t2) \to (\forall (t3: T).((iso t2 
@@ -50,7 +49,4 @@ t3) \to (iso t1 t3)))))
 (\lambda (x0: T).(\lambda (x1: T).(\lambda (H2: (eq T t5 (THead k x0 
 x1))).(eq_ind_r T (THead k x0 x1) (\lambda (t: T).(iso (THead k v1 t3) t)) 
 (iso_head v1 x0 t3 x1 k) t5 H2)))) H1)))))))))) t1 t2 H))).
-(* COMMENTS
-Initial nodes: 351
-END *)