Use of standard OCaml syntax

[helm.git] / matita / components / grafite_engine / nCicCoercDeclaration.ml

diff --git a/matita/components/grafite_engine/nCicCoercDeclaration.ml b/matita/components/grafite_engine/nCicCoercDeclaration.ml
index a2ed8044a187a9236f365f18794a9f73ee65c02b..810844b2a5788d25c08d5f6afa0a6f1cb1d66703 100644 (file)
--- a/matita/components/grafite_engine/nCicCoercDeclaration.ml
+++ b/matita/components/grafite_engine/nCicCoercDeclaration.ml
@@ -145,8 +145,7 @@ let src_tgt_cpos_arity_of_ty_id_src_tgt status ty id src tgt =
                raise (GrafiteTypes.Command_error ("bad source pattern: " ^ 
 Lazy.force msg))
             | MultiPassDisambiguator.DisambiguationError _ ->
-               raise (GrafiteTypes.Command_error ("bad source pattern: 
-disambiguation error")))
+               raise (GrafiteTypes.Command_error ("bad source pattern: disambiguation error")))
       | _ -> assert false
     in
       aux 0 [] ty