X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Ffreescale%2Foption.ma;h=a30a8f08dafc092a7a0719d9e93dd70213f8b182;hb=20fdd66303330e6209059e90b6a98af71ec29567;hp=2041a2a556a2d87957766fb1d224375f0913f2e8;hpb=661cf1186c81c15122e0644b679795d2e6b9d389;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly/freescale/option.ma b/helm/software/matita/contribs/ng_assembly/freescale/option.ma
index 2041a2a55..a30a8f08d 100644
--- a/helm/software/matita/contribs/ng_assembly/freescale/option.ma
+++ b/helm/software/matita/contribs/ng_assembly/freescale/option.ma
@@ -34,23 +34,23 @@ 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)) → Πo:option A.P o ≝
-λA:Type.λP:option A → Prop.λp:P (None A).λf:Πa:A.P (Some A a).λo:option A.
- match o with [ None ⇒ p | Some (a:A) ⇒ f a ].
+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 ].
 
-ndefinition option_rec : ΠA:Type.ΠP:option A → Set.P (None A) → (Πa:A.P (Some A a)) → Πo:option A.P o ≝
-λA:Type.λP:option A → Set.λp:P (None A).λf:Πa:A.P (Some A a).λo:option A.
- match o with [ None ⇒ p | Some (a:A) ⇒ f a ].
+ndefinition option_rec : ΠA:Type.ΠP:option A → Set.P (None A) → (Πa:A.P (Some A a)) → Πop:option A.P op ≝
+λA:Type.λP:option A → Set.λp:P (None A).λf:Πa:A.P (Some A a).λop:option A.
+ match op with [ None ⇒ p | Some (a:A) ⇒ f a ].
 
-ndefinition option_rect : ΠA:Type.ΠP:option A → Type.P (None A) → (Πa:A.P (Some A a)) → Πo:option A.P o ≝
-λA:Type.λP:option A → Type.λp:P (None A).λf:Πa:A.P (Some A a).λo:option A.
- match o with [ None ⇒ p | Some (a:A) ⇒ f a ].
+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 ].
 
 ndefinition eq_option ≝
-λT.λo1,o2:option T.λf:T → T → bool.
- match o1 with
-  [ None ⇒ match o2 with [ None ⇒ true | Some _ ⇒ false ]
-  | Some x1 ⇒ match o2 with [ None ⇒ false | Some x2 ⇒ f x1 x2 ]
+λT.λop1,op2:option T.λf:T → T → bool.
+ match op1 with
+  [ None ⇒ match op2 with [ None ⇒ true | Some _ ⇒ false ]
+  | Some x1 ⇒ match op2 with [ None ⇒ false | Some x2 ⇒ f x1 x2 ]
   ].
 
 (* option map = match ... with [ None ⇒ None ? | Some .. ⇒ .. ] *)