object ('self)
method coerc_db: db
method set_coerc_db: db -> 'self
+ method set_coercion_status: <coerc_db: db; ..> -> 'self
end
val empty_db: db
(* enriched metasenv, new term, its type, metavriable to
* be unified with the old term *)
(NCic.metasenv * NCic.term * NCic.term * NCic.term) list
+
+(* returns (coercion,arity,arg) *)
+val match_coercion:
+ #status -> metasenv:NCic.metasenv -> subst:NCic.substitution ->
+ context:NCic.context -> NCic.term -> (NCic.term * int * int) option