diff options
Diffstat (limited to 'dev/base_include')
| -rw-r--r-- | dev/base_include | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/dev/base_include b/dev/base_include index 8964873eb0..f314b35582 100644 --- a/dev/base_include +++ b/dev/base_include @@ -47,14 +47,17 @@ let raw_constr_of_string s = (parse_ast s);; let e s = - constr_of_com Evd.empty (Global.env()) (parse_ast s);; + Astterm.constr_of_com Evd.empty (Global.env()) (parse_ast s);; (* Get the current goal *) -let getgoal x = top_goal_of_pftreestate (get_pftreestate x);; +let getgoal x = top_goal_of_pftreestate (Pfedit.get_pftreestate x);; -let get_nth_goal n = nth_goal_of_pftreestate n (get_pftreestate ());; +let get_nth_goal n = nth_goal_of_pftreestate n (Pfedit.get_pftreestate ());; let current_goal () = get_nth_goal 1;; let pf_e gl s = - constr_of_com (project gl) (pf_env gl) (parse_ast s);; + Astterm.constr_of_com (project gl) (pf_env gl) (parse_ast s);; + +open Toplevel +let go = loop |