Utils.comparison) * (* ordering *)
Cic.metasenv * (* environment for metas *)
Cic.term list (* arguments *)
-;;
-type environment = Cic.metasenv * Cic.context * CicUniv.universe_graph;;
+type proof =
+ | BasicProof of Cic.term
+ | ProofBlock of
+ Cic.substitution * UriManager.uri * Cic.term * (Utils.pos * equality) *
+ equality
+ | NoProof
+
+
+type environment = Cic.metasenv * Cic.context * CicUniv.universe_graph
exception MatchingFailure
CicUniv.universe_graph ->
Cic.substitution * Cic.metasenv * CicUniv.universe_graph
+val unification:
+ Cic.metasenv -> Cic.context -> Cic.term -> Cic.term ->
+ CicUniv.universe_graph ->
+ Cic.substitution * Cic.metasenv * CicUniv.universe_graph
+
(**
Performs the beta expansion of the term "where" w.r.t. "what",
i.e. returns the list of all the terms t s.t. "(t what) = where".
val extract_differing_subterms:
Cic.term -> Cic.term -> (Cic.term * Cic.term) option
+
+
+val store_proof: equality -> proof -> unit
+
+val delete_proof: equality -> unit
+
+val build_term_proof: equality -> Cic.term