equal
deleted
inserted
replaced
208 |
208 |
209 fun prove_future ctxt xs asms prop tac = hd (prove_common false ctxt xs asms [prop] tac); |
209 fun prove_future ctxt xs asms prop tac = hd (prove_common false ctxt xs asms [prop] tac); |
210 fun prove ctxt xs asms prop tac = hd (prove_common true ctxt xs asms [prop] tac); |
210 fun prove ctxt xs asms prop tac = hd (prove_common true ctxt xs asms [prop] tac); |
211 |
211 |
212 fun prove_global thy xs asms prop tac = |
212 fun prove_global thy xs asms prop tac = |
213 Drule.standard (prove (ProofContext.init thy) xs asms prop tac); |
213 Drule.export_without_context (prove (ProofContext.init thy) xs asms prop tac); |
214 |
214 |
215 |
215 |
216 |
216 |
217 (** goal structure **) |
217 (** goal structure **) |
218 |
218 |