Unified-Sub: lift_comm completed

[helm.git] / helm / software / matita / contribs / LAMBDA-TYPES / Unified-Sub / datatypes / Term.ma

diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma
index ba37390d958709cd55e440f67dca7cba913ce802..8c2fb6ec68e4a0052332bf43d96643ee736c311f 100644 (file)
--- a/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma
+++ b/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma
@@ -18,7 +18,6 @@ set "baseuri" "cic:/matita/LAMBDA-TYPES/Unified-Sub/datatypes/Term".
    - Naming policy:
      - natural numbers      : sorts h k, local references i j, lengths l o
      - boolean values       : p q
-     - generic leaf items   : m n
      - generic binding items: r s 
      - generic flat items   : r s
      - generic head items   : m n
@@ -27,11 +26,6 @@ set "baseuri" "cic:/matita/LAMBDA-TYPES/Unified-Sub/datatypes/Term".
 
 include "preamble.ma".
 
-inductive Leaf: Set \def
-   | sort: Nat \to Leaf
-   | lref: Nat \to Leaf
-.
-
 inductive Bind: Set \def
    | abbr: Bind
    | abst: Bind
@@ -52,7 +46,8 @@ inductive IntF: Set \def
 .
 
 inductive Term: Set \def
-   | leaf: Leaf \to Term
+   | sort: Nat  \to Term
+   | lref: Nat  \to Term
    | intb: IntB \to Term \to Term \to Term
    | intf: IntF \to Term \to Term \to Term
 .