src/Pure/proof_general.ML
changeset 15268 9e12b5443e7f
parent 15266 0398af5501fe
child 15286 b084384960d1
equal deleted inserted replaced
15267:96c59666a0bf 15268:9e12b5443e7f
  1166      | "comment"	=> isarscript data  (* NB: should be ignored, but process anyway *)
  1166      | "comment"	=> isarscript data  (* NB: should be ignored, but process anyway *)
  1167      | "litcomment"     => isarscript data
  1167      | "litcomment"     => isarscript data
  1168      | "spuriouscmd"    => isarscript data
  1168      | "spuriouscmd"    => isarscript data
  1169      | "badcmd"		=> isarscript data
  1169      | "badcmd"		=> isarscript data
  1170      (* improperproofcmd: improper commands which *do not* belong in script *)
  1170      (* improperproofcmd: improper commands which *do not* belong in script *)
  1171      | "undostep"       => isarcmd "ProofGeneral.undo"
  1171      | "undostep"       => isarcmd "undos_proof 1" (* ProofGeneral.undo" *)
  1172      | "abortgoal"      => isarcmd "ProofGeneral.kill_proof"  
  1172      | "abortgoal"      => isarcmd "ProofGeneral.kill_proof"  
  1173      | "forget"         => error "Not implemented" 
  1173      | "forget"         => error "Not implemented" 
  1174      | "restoregoal"    => error "Not implemented"  (* could just treat as forget? *)
  1174      | "restoregoal"    => error "Not implemented"  (* could just treat as forget? *)
  1175      (* proofctxt: improper commands *)
  1175      (* proofctxt: improper commands *)
  1176      | "askids"         => askids (thyname_attro attrs, objtype_attro attrs)
  1176      | "askids"         => askids (thyname_attro attrs, objtype_attro attrs)