update in lambdadelta

[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / lift1 / defs.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_1/lift1/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/lift1/defs.ma
deleted file mode 100644 (file)
index 4ab2589..0000000
--- a/matita/matita/contribs/lambdadelta/basic_1/lift1/defs.ma
+++ /dev/null
@@ -1,31 +0,0 @@
-(**************************************************************************)
-(*       ___                                                              *)
-(*      ||M||                                                             *)
-(*      ||A||       A project by Andrea Asperti                           *)
-(*      ||T||                                                             *)
-(*      ||I||       Developers:                                           *)
-(*      ||T||         The HELM team.                                      *)
-(*      ||A||         http://helm.cs.unibo.it                             *)
-(*      \   /                                                             *)
-(*       \ /        This file is distributed under the terms of the       *)
-(*        v         GNU General Public License Version 2                  *)
-(*                                                                        *)
-(**************************************************************************)
-
-(* This file was automatically generated: do not edit *********************)
-
-include "basic_1/lift/defs.ma".
-
-rec definition trans (hds: PList) on hds: nat \to nat \def \lambda (i: 
-nat).(match hds with [PNil \Rightarrow i | (PCons h d hds0) \Rightarrow (let 
-j \def (trans hds0 i) in (match (blt j d) with [true \Rightarrow j | false 
-\Rightarrow (plus j h)]))]).
-
-rec definition lift1 (hds: PList) on hds: T \to T \def \lambda (t: T).(match 
-hds with [PNil \Rightarrow t | (PCons h d hds0) \Rightarrow (lift h d (lift1 
-hds0 t))]).
-
-rec definition lifts1 (hds: PList) (ts: TList) on ts: TList \def match ts 
-with [TNil \Rightarrow TNil | (TCons t ts0) \Rightarrow (TCons (lift1 hds t) 
-(lifts1 hds ts0))].
-