git.annexia.org
/
goals.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
stdlib: Fix *file tactic.
[goals.git]
/
src
/
ast.mli
diff --git
a/src/ast.mli
b/src/ast.mli
index
831878d
..
e47ddc3
100644
(file)
--- a/
src/ast.mli
+++ b/
src/ast.mli
@@
-45,13
+45,13
@@
and pattern =
| PTactic of loc * id * substs list
and expr =
(** goal (params) = patterns : exprs code *)
| PTactic of loc * id * substs list
and expr =
(** goal (params) = patterns : exprs code *)
- | EGoal of loc * goal
+ | EGoal
Defn
of loc * goal
(** tactic (params) = code *)
(** tactic (params) = code *)
- | ETactic of loc * tactic
+ | ETactic
Defn
of loc * tactic
(** call goalname (params) etc. *)
| ECallGoal of loc * id * expr list
(** call *tactic (params) etc. *)
(** call goalname (params) etc. *)
| ECallGoal of loc * id * expr list
(** call *tactic (params) etc. *)
- | E
CallTactic
of loc * id * expr list
+ | E
TacticCtor
of loc * id * expr list
(** variable, or goal call with no parameters *)
| EVar of loc * id
(** list *)
(** variable, or goal call with no parameters *)
| EVar of loc * id
(** list *)
@@
-113,9
+113,8
@@
module Substs : sig
val add_var : t -> string -> unit
end
val add_var : t -> string -> unit
end
-(** Print all definitions in an environment. *)
-val print_env : out_channel -> env -> unit
-
(** %a formatters. *)
(** %a formatters. *)
+val print_env : out_channel -> env -> unit
val string_pattern : unit -> pattern -> string
val string_expr : unit -> expr -> string
val string_pattern : unit -> pattern -> string
val string_expr : unit -> expr -> string
+val print_expr : out_channel -> expr -> unit