(* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
*)
+module T = MQGTypes
+
let text_of_entries out entries =
out "(** MatchConclusion: results of the term inspection **)\n";
let text_of_entry (u, b, v) =
mk_musts (prev @ [acc]) acc next
in
mk_musts [] [] can
+
+let universe = [T.MainConclusion; T.InConclusion]