]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/drop1/getl.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / drop1 / getl.ma
index dbee798509f2bad6d663a3f85a8f25d16c6f845c..83889c30aaa663aff785f0a1f1d8aa774ba172cd 100644 (file)
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/drop1/fwd.ma".
+include "basic_1/drop1/fwd.ma".
 
-include "Basic-1/getl/drop.ma".
+include "basic_1/getl/drop.ma".
 
-theorem drop1_getl_trans:
+lemma drop1_getl_trans:
  \forall (hds: PList).(\forall (c1: C).(\forall (c2: C).((drop1 hds c2 c1) 
 \to (\forall (b: B).(\forall (e1: C).(\forall (v: T).(\forall (i: nat).((getl 
 i c1 (CHead e1 (Bind b) v)) \to (ex2 C (\lambda (e2: C).(drop1 (ptrans hds i) 
@@ -104,7 +104,4 @@ H9 \def (drop_getl_trans_ge (trans hds0 i) c2 x d h H3 (CHead x0 (Bind b)
 (ptrans hds0 i) e2 e1)) (\lambda (e2: C).(getl (plus (trans hds0 i) h) c2 
 (CHead e2 (Bind b) (lift1 (ptrans hds0 i) v)))) x0 H7 (H9 (bge_le d (trans 
 hds0 i) H5))))))) H6)))) x_x)))))) H2))))))))))))))) hds).
-(* COMMENTS
-Initial nodes: 1674
-END *)