1) PTS simplified

[helm.git] / helm / software / matita / contribs / ng_assembly / freescale / option.ma

diff --git a/helm/software/matita/contribs/ng_assembly/freescale/option.ma b/helm/software/matita/contribs/ng_assembly/freescale/option.ma
index bcd66d441fe24b34c72ef5c4fdc168a4924e06c2..4c7a9abb426595bde0c74bcd0a32b3dab785d10c 100644 (file)
--- a/helm/software/matita/contribs/ng_assembly/freescale/option.ma
+++ b/helm/software/matita/contribs/ng_assembly/freescale/option.ma
@@ -30,7 +30,7 @@ ninductive option (A:Type) : Type ≝
   None : option A
 | Some : A → option A.
 
-ndefinition option_ind : ΠA:Type.ΠP:option A → Prop.P (None A) → (Πa:A.P (Some A a)) → Πop:option A.P op ≝
+(*ndefinition option_ind : ΠA:Type.ΠP:option A → Prop.P (None A) → (Πa:A.P (Some A a)) → Πop:option A.P op ≝
 λA:Type.λP:option A → Prop.λp:P (None A).λf:Πa:A.P (Some A a).λop:option A.
  match op with [ None ⇒ p | Some (a:A) ⇒ f a ].
 
@@ -40,7 +40,7 @@ ndefinition option_rec : ΠA:Type.ΠP:option A → Set.P (None A) → (Πa:A.P (
 
 ndefinition option_rect : ΠA:Type.ΠP:option A → Type.P (None A) → (Πa:A.P (Some A a)) → Πop:option A.P op ≝
 λA:Type.λP:option A → Type.λp:P (None A).λf:Πa:A.P (Some A a).λop:option A.
- match op with [ None ⇒ p | Some (a:A) ⇒ f a ].
+ match op with [ None ⇒ p | Some (a:A) ⇒ f a ].*)
 
 ndefinition eq_option ≝
 λT.λop1,op2:option T.λf:T → T → bool.