* http://helm.cs.unibo.it/
*)
+(*
type term = CicNotationPt.term
type tactic = (term, term, GrafiteAst.reduction, string) GrafiteAst.tactic
type tactical = (term, term, GrafiteAst.reduction, string) GrafiteAst.tactical
| Command of tactical
| Comment of CicNotationPt.location * string
type script = CicNotationPt.location * script_entry list
+*)
type domain_item =
| Id of string (* literal *)
| Symbol of string * int (* literal, instance num *)
| Num of int (* instance num *)
-exception Invalid_choice
+exception Invalid_choice of string Lazy.t
module OrderedDomain =
struct