equal
deleted
inserted
replaced
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); |