Use of standard OCaml syntax

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

diff --git a/matita/components/grafite_engine/nCicCoercDeclaration.mli b/matita/components/grafite_engine/nCicCoercDeclaration.mli
index 9bca1143d3fdb4315be5bd1d5d7f763193cb9ee3..0f93d19b20d37e9e955801945ddf63b96be9f1ff 100644 (file)
--- a/matita/components/grafite_engine/nCicCoercDeclaration.mli
+++ b/matita/components/grafite_engine/nCicCoercDeclaration.mli
@@ -10,10 +10,11 @@
       V_______________________________________________________________ *)
 
 
-(* evals a coercion declaration statement: name t ty (id,src) tgt *)
+(* evals a coercion declaration statement: name compose t ty (id,src) tgt *)
 val eval_ncoercion: 
-   #GrafiteTypes.status as 'status ->
+   (#GrafiteTypes.status as 'status) ->
      string ->
+     bool ->
      NotationPt.term ->
      NotationPt.term ->
      string * NotationPt.term ->
@@ -23,6 +24,6 @@ val eval_ncoercion:
  * first integer is the number of left params and the second integer is 
  * the arity in the `:arity>` syntax *)
 val basic_eval_and_record_ncoercion_from_t_cpos_arity: 
-   #GrafiteTypes.status as 'status ->
-     string * NCic.term * int * int -> 'status * NUri.uri list
+   (#GrafiteTypes.status as 'status) ->
+     string * bool * NCic.term * int * int -> 'status * NUri.uri list