X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Fcommon%2Foption.ma;h=0b71c17e4223c7ef6d1cb768922ec042e336c119;hb=a90c31c1b53222bd6d57360c5ba5c2d0fe7d5207;hp=62da6590013f8edc1d5c9518904ccb96a8ae4ac0;hpb=4377e950998c9c63937582952a79975947aa9a45;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly/common/option.ma b/helm/software/matita/contribs/ng_assembly/common/option.ma
index 62da65900..0b71c17e4 100644
--- a/helm/software/matita/contribs/ng_assembly/common/option.ma
+++ b/helm/software/matita/contribs/ng_assembly/common/option.ma
@@ -16,7 +16,7 @@
 (*                          Progetto FreeScale                            *)
 (*                                                                        *)
 (*   Sviluppato da: Ing. Cosimo Oliboni, oliboni@cs.unibo.it              *)
-(*   Sviluppo: 2008-2010                                                  *)
+(*   Ultima modifica: 05/08/2009                                          *)
 (*                                                                        *)
 (* ********************************************************************** *)
 
@@ -31,7 +31,7 @@ ninductive option (A:Type) : Type ≝
 | Some : A → option A.
 
 ndefinition eq_option ≝
-λT.λf:T → T → bool.λop1,op2:option T.
+λ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 ]