src/Tools/isac/BridgeJEdit/preliminary.sml
changeset 60153 fa8d902b60bc
parent 60152 77a9287c56a3
child 60154 2ab0d1523731
     1.1 --- a/src/Tools/isac/BridgeJEdit/preliminary.sml	Wed Feb 03 14:53:37 2021 +0100
     1.2 +++ b/src/Tools/isac/BridgeJEdit/preliminary.sml	Wed Feb 03 15:21:12 2021 +0100
     1.3 @@ -14,7 +14,8 @@
     1.4    (theory -> Token.file list * theory) * 'c -> theory -> theory
     1.5    
     1.6    (* for keyword Problem*)
     1.7 -  val prove_vc: ParseC.problem -> Proof.context -> Proof.state
     1.8 +(**)val prove_vc: ParseC.problem -> Proof.context -> Proof.state(**)
     1.9 +(** )val prove_vc: ParseC.problem_headline -> Proof.context -> Proof.state( **)
    1.10  (* ---- for tests only: shifted from below to remove the Warning "unused" at fun.def. --------- *)
    1.11  (*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\* )
    1.12  ( *\--- ! aktivate for Test_Isac END ----------------------------------------------------------/*)
    1.13 @@ -601,9 +602,7 @@
    1.14    if inthy = thy andalso inpbl = pbl
    1.15    then ((thy, pbl, met_id) : References.T, o_model)
    1.16    else ((inthy, inpbl, Method.id_empty), [])
    1.17 -(*
    1.18 -val prove_vc: ParseC.problem((_headline)) -> Proof.context -> Proof.state
    1.19 -*)
    1.20 +
    1.21  fun prove_vc (*vc_name*)problem lthy =
    1.22    let
    1.23      val _ = @{print} {a = "//--- Spark_Commands.prove_vc", headline = problem}