- full commit for the transtive closure of ltpss!

[helm.git] / matita / matita / contribs / lambda_delta / basic_2 / grammar / item.ma

diff --git a/matita/matita/contribs/lambda_delta/basic_2/grammar/item.ma b/matita/matita/contribs/lambda_delta/basic_2/grammar/item.ma
index deeaf047f55dff9c7215f0b5a58707570611a6b6..323f22f882830ba1658eeea355aa1dfb8fc72ae3 100644 (file)
--- a/matita/matita/contribs/lambda_delta/basic_2/grammar/item.ma
+++ b/matita/matita/contribs/lambda_delta/basic_2/grammar/item.ma
@@ -38,14 +38,10 @@ inductive flat2: Type[0] ≝
 
 (* binary items *)
 inductive item2: Type[0] ≝
-  | Bind2: bind2 → item2 (* binding item *)
-  | Flat2: flat2 → item2 (* non-binding item *)
+  | Bind2: bool → bind2 → item2 (* polarized binding item *)
+  | Flat2: flat2 → item2        (* non-binding item *)
 .
 
-coercion Bind2.
-
-coercion Flat2.
-
 (* Basic properties *********************************************************)
 
 axiom item0_eq_dec: ∀I1,I2:item0. Decidable (I1 = I2).