| Symbol of string * int (* literal, instance num *)
| Num of int (* instance num *)
-module Domain: Set.S with type elt = domain_item
+(* module Domain: Set.S with type elt = domain_item *)
module Environment: Map.S with type key = domain_item
type codomain_item =
module type Callbacks =
sig
- val output_html : ?append_NL:bool -> Ui_logger.html_msg -> unit
val interactive_user_uri_choice :
selection_mode:[`SINGLE | `MULTIPLE] ->
?ok:string ->
?enable_button_for_non_vars:bool ->
title:string -> msg:string -> id:string -> string list -> string list
val interactive_interpretation_choice :
- (string * string) list list -> int
+ (string * string) list list -> int list
val input_or_locate_uri : title:string -> UriManager.uri
end
val string_of_domain_item: domain_item -> string
-val string_of_domain: Domain.t -> string
-
-(**/**)
-
-module EnvironmentP3:
- sig
- type t = environment
- val empty : string
- val to_string : t -> string
- val of_string : string -> t
- end
+val string_of_domain: domain_item list -> string