src/Pure/goals.ML
changeset 2878 bf7b6833e4d7
parent 2580 e3f680709487
child 2962 97ae96c72d8c
equal deleted inserted replaced
2877:6476784dba1c 2878:bf7b6833e4d7
    93 (*Current result maker -- set by "goal", used by "result".  *)
    93 (*Current result maker -- set by "goal", used by "result".  *)
    94 val curr_mkresult = 
    94 val curr_mkresult = 
    95     ref((fn _=> error"No goal has been supplied in subgoal module") 
    95     ref((fn _=> error"No goal has been supplied in subgoal module") 
    96        : bool*thm->thm);
    96        : bool*thm->thm);
    97 
    97 
    98 val dummy = trivial(read_cterm Sign.proto_pure 
    98 val dummy = trivial(read_cterm Sign.pure 
    99     ("PROP No_goal_has_been_supplied",propT));
    99     ("PROP No_goal_has_been_supplied",propT));
   100 
   100 
   101 (*List of previous goal stacks, for the undo operation.  Set by setstate. 
   101 (*List of previous goal stacks, for the undo operation.  Set by setstate. 
   102   A list of lists!*)
   102   A list of lists!*)
   103 val undo_list = ref([[(dummy, Sequence.null)]] : gstack list);
   103 val undo_list = ref([[(dummy, Sequence.null)]] : gstack list);