diff -r f192c4ea5b17 -r 4cfa094da3cb src/Doc/IsarImplementation/Logic.thy --- a/src/Doc/IsarImplementation/Logic.thy Mon Jun 17 20:15:34 2013 +0200 +++ b/src/Doc/IsarImplementation/Logic.thy Mon Jun 17 21:23:49 2013 +0200 @@ -1291,6 +1291,46 @@ and can turn it into a theorem by replaying its primitive inferences within the kernel. *} + +subsection {* Concrete syntax of proof terms *} + +text {* The concrete syntax of proof terms is a slight extension of + the regular inner syntax of Isabelle/Pure \cite{isabelle-isar-ref}. + Its main syntactic category @{syntax (inner) proof} is defined as + follows: + + \begin{center} + \begin{supertabular}{rclr} + + @{syntax_def (inner) proof} & = & @{verbatim Lam} @{text params} @{verbatim "."} @{text proof} \\ + & @{text "|"} & @{text "\"} @{text "params"} @{verbatim "."} @{text proof} \\ + & @{text "|"} & @{text proof} @{verbatim "%"} @{text any} \\ + & @{text "|"} & @{text proof} @{text "\"} @{text any} \\ + & @{text "|"} & @{text proof} @{verbatim "%%"} @{text proof} \\ + & @{text "|"} & @{text proof} @{text "\"} @{text proof} \\ + & @{text "|"} & @{text "id | longid"} \\ + \\ + + @{text param} & = & @{text idt} \\ + & @{text "|"} & @{text idt} @{verbatim ":"} @{text prop} \\ + & @{text "|"} & @{verbatim "("} @{text param} @{verbatim ")"} \\ + \\ + + @{text params} & = & @{text param} \\ + & @{text "|"} & @{text param} @{text params} \\ + + \end{supertabular} + \end{center} + + Implicit term arguments in partial proofs are indicated by ``@{text + "_"}''. Type arguments for theorems and axioms may be specified + using @{text "p \ TYPE(type)"} (they must appear before any other + term argument of a theorem or axiom, but may be omitted altogether). + + \medskip There are separate read and print operations for proof + terms, in order to avoid conflicts with the regular term language. +*} + text %mlref {* \begin{mldecls} @{index_ML_type proof} \\ @@ -1300,8 +1340,9 @@ "theory -> term -> proof -> proof"} \\ @{index_ML Reconstruct.expand_proof: "theory -> (string * term option) list -> proof -> proof"} \\ - @{index_ML Proof_Checker.thm_of_proof: - "theory -> proof -> thm"} \\ + @{index_ML Proof_Checker.thm_of_proof: "theory -> proof -> thm"} \\ + @{index_ML Proof_Syntax.read_proof: "theory -> bool -> bool -> string -> proof"} \\ + @{index_ML Proof_Syntax.pretty_proof: "Proof.context -> proof -> Pretty.T"} \\ \end{mldecls} \begin{description} @@ -1354,6 +1395,14 @@ given (full) proof into a theorem, by replaying it using only primitive rules of the inference kernel. + \item @{ML Proof_Syntax.read_proof}~@{text "thy b\<^sub>1 b\<^sub>2 s"} reads in a + proof term. The Boolean flags indicate the use of sort and type + information. Usually, typing information is left implicit and is + inferred during proof reconstruction. %FIXME eliminate flags!? + + \item @{ML Proof_Syntax.pretty_proof}~@{text "ctxt prf"} + pretty-prints the given proof term. + \end{description} *} @@ -1434,12 +1483,11 @@ pretty_item "full proof:" (Proof_Syntax.pretty_proof ctxt full_prf)] |> Pretty.chunks |> Pretty.writeln; - + in (*rechecked theorem*) - val thm' = - Proof_Checker.thm_of_proof thy full_prf - |> singleton (Proof_Context.export ctxt ctxt0); - in thm' end; + Proof_Checker.thm_of_proof thy full_prf + |> singleton (Proof_Context.export ctxt ctxt0) + end; *} text {* As anticipated, the rechecked theorem establishes the same