src/Pure/goal.ML
changeset 28341 383f512314b9
parent 28340 e8597242f649
child 28355 b9d9360e2440
equal deleted inserted replaced
28340:e8597242f649 28341:383f512314b9
   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 =