equal
deleted
inserted
replaced
180 |> map (Assumption.export false ctxt' ctxt) |
180 |> map (Assumption.export false ctxt' ctxt) |
181 |> Variable.export ctxt' ctxt |
181 |> Variable.export ctxt' ctxt |
182 |> map Drule.zero_var_indexes |
182 |> map Drule.zero_var_indexes |
183 end; |
183 end; |
184 |
184 |
185 val prove_multi = prove_common false; |
185 val prove_multi = prove_common true; |
186 |
186 |
187 fun prove_promise ctxt xs asms prop tac = hd (prove_common false ctxt xs asms [prop] tac); |
187 fun prove_promise ctxt xs asms prop tac = hd (prove_common false ctxt xs asms [prop] tac); |
188 fun prove ctxt xs asms prop tac = hd (prove_common true ctxt xs asms [prop] tac); |
188 fun prove ctxt xs asms prop tac = hd (prove_common true ctxt xs asms [prop] tac); |
189 |
189 |
190 fun prove_global thy xs asms prop tac = |
190 fun prove_global thy xs asms prop tac = |