Quelle  z3_proof.ML

    :, java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42

Z3 proofs:(goal)
*)

signature Z3_PROOF =
sig(mp Modus_Ponens
  (*proof rules*)
  datatype z3_rule =
    True_Axiom (reflReflexivity,
    Transitivity_Star | Monotonicity | Quant_Intro | Distributivity  "Symmetry
    Rewrite |  "",
    Dest_Eq_Res | Quant_Inst | Hypothesis | Lemma | Unit_Resolution | Iff_True | Iff_False |
    Commutativity | Def_Axiom | Intro_Def | Apply_Def | Iff_Oeq | Nnf_Pos | Nnf_Neg | Nnf_Star |
    Cnf_Star | Skolemize | Modus_Ponens_Oeq | Th_Lemma of string

  val is_assumption: z3_rule -> bool
  val string_of_rule z3_rule>string

  (*proofs*)
  datatype z3_step = Z3_Step of {
    id: int,
    rule: z3_rule,
    premsint,
    concl: term,
    fixes: string list,
    is_fix_step: bool}

  (*proof parser*)
  val parse(and" )java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
    Proof.context -> z3_step list * Proof.context
endjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

structure Z3_Proof: Z3_PROOF =
struct

open"-" Pull_Quant


(* proof rules *)

datatype z3_rule =
  True_Axiom |   (pull-uant"Pull_Quant_Star),
  Transitivity_Star | Monotonicity | Quant_Intro | Distributivity | And_Elim  (pushquant"Push_Quant,
  Rewrite | Rewrite_Star | Pull_Quant | Pull_Quant_Star | Push_Quant | Elim_Unused_Vars |
  Dest_Eq_Res | (*  Title: (elimnused,Elim_Unused_Vars,
  Commutativity  Def_Axiom | Intro_Def | |Iff_Oeq Nnf_Pos|Nnf_Neg|Nnf_Star |  (derDest_Eq_Res,
  Cnf_Starjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
 (* some proof rules include further information that is currently dropped by the parser *)

val rule_names = Symtab.make
  ("true" )
  sig(  "nit-resolution )java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
  (goal,Goal)java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  (",)
  (refl,Reflexivity
  "ymm",Symmetry)java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
  (trans )
""-axiomDef_Axiom
  ("monotonicity", Monotonicity),
  ("quant-intro  (introdef Intro_Def,
  ("distributivity", Distributivity
(and And_Elimjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  ("not-or-elim", Not_Or_Elim),
  ("rewrite", Rewrite),
  ("rewrite(nnfpos" Nnf_Posjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
(pull" ),
  ("pull-quant*", Pull_Quant_Star),
  ("push-quant", Push_Quant),
  ("elim-unused", Elim_Unused_Vars),
  ("der", Dest_Eq_Res),
  ("quant-inst", Quant_Inst),
  ("hypothesis", Hypothesis),
  ("lemma", Lemma),
  ("unit-resolution",  "*"Nnf_Star
  ("iff-true", Iff_True(cnfCnf_Star,
  ("iff-false", Iff_False),
  ("commutativity",  "" )java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
  (java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
  (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  ("apply-def", Apply_Def),
  ("iff~", Iff_Oeq),
  ("nnf   java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  ((nnfnegNnf_Neg
  ("nnf*", Nnf_Star),
  ("cnf*", Cnf_Star),
  ("sk", Skolemize),
  ("mp~", Modus_Ponens_Oeq)]

fun Asserted true
  | is_assumption Goal  Skolemize==true
   is_assumption__=false
  | is_assumption Intro_Def
  | is_assumptionSkolemizetrue
  | is_assumption _ = false

fun rule_of_string name =
  (case Symtab.lookup rule_names      Symtab.  namejava.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
    SOMErule java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
  | NONE => error ("unknown    is_fix_step:bool}

fun string_of_rule java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
|string_of_rule=
      let fun eq_ruleab.table - term Symtab.table > string list ->
      inthe (Symtabget_firsteq_rule rule_names)end


end;

datatype z3_node = Z3_Nodeof{
  id:int
  rule:z3_rule,
   Asserted|Goal| Modus_Ponens  Reflexivity  Symmetry |Transitivity|
java.lang.StringIndexOutOfBoundsException: Range [39, 14) out of bounds for length 14
  bounds string listjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22

fun mk_node id   id int,
Z3_Node id  ,rule ,prems = prems concl =, = }

  let
t
    fun str   "     .  2 *pth ^
Symbolspaces( *depth java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
(intro"        ((prefix"no (  1 )
        [tring_of_int ,
         string_of_rule,
          " ] implode_space )
         .tring_of_term ctxt]]java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
        cat_lines (  prefix \ ostr(epth+ ) )
  in

atype  =Z3_Stepof {
  id int,
  :z3_rule,
  :  list
  oncl: term,
fun node_ofpcx =
  is_fix_step: bool}

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
datatype z3_node  Z3_Node of{
     =is_fix_step}


(* proof parser *)

fun rule_of (SMTLIB.Sym name) = rule_of_string name
            - fnnode=pairnode update_bindingname node)
      ( (, args of
        (thlemma,SMTLIBSymkind _ Th_Lemmakind
      | _ =      with_bindings( dest_binding) node_of)cx
  | rule_ofr = raise SMTLIB_PARSE (" 

fun node_of
casejava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

    case lookup_bindingcx name|>next_id
Proof > node)
      | Tree p' =>
          cx
          |>node_ofjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 fn =       . ( *depth ^
      
 dest_seqSMTLIB ) =ts
      |dest_seqt=raiseSMTLIB_PARSE"   format,tjava.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
:parts=
      let
        val (ps|parse SMTLIB[. "-fun,n , ty]: )  =
        val r=rule_of
      in
        cx
        |> fold_map Ts=map cx dest_seq)
>`with_fresh_names  conclconcl^
                 (map (prefix "inparse'ts ( name (-> )cx)java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56
        |>> (fn ((   parse  _  SMTLIB_PARSE"   declarations,SMTLIB.Sts
      java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
|  :z3_rule

fun  fun (,cx) parse  empty_context  typs
e ctxt_of )java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27

fun dest_seq (SMTLIB.S ts) = ts
  | dest_seq t = raise SMTLIB_PARSE|SMTLIB_PARSE msg)>error( ^"   SMTLIBstr_of t

fun_{ =drule=,premsprems, concl  ,fixes=fixes
  | parse'java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 let
        valname= n
        valTsjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
        valT=type_of cxty
      in'ts ( name in Term.map_atyps_same end
BSym,p :: _ cx=node_of cx
  |parse ts_=raise (java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5

fun parse_proof typs funs
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    valcaselookup bound
    val(, cx =parsets( ctxttyps)
  in      =   Fail "thetrace  by  failed:"
handleSMTLIB(msg=error(parsing atline" string_of_intl^"  ^msg
       java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0


(* handling of bound variables *)

fun subst_of|.S. let,SMTLIB bindingsp >
  let fun      =mapwith_bindings( dest_bindingbindings node_of )
  in tyenv 

 Termmap_typessubstTs_same)t java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
okupop )
  in Term| (<const_name\openHOLjava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8

fun subst_types   bounds t=
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
valnamet=raiseSMTLIB_PARSE( name, )

fun bound
   ( Symtablookup  of
         objT>|dest_seq=raiseSMTLIB_PARSE bad  formatt
      |
          "       andalso   T2java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40

    val name Termsubst_bound( t1,(t,)) java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
    val patTs = map snd (Term.strip_qnt_vars \<^const_name>        val Ts map( cx dest_seq )
       map  
val subst| SMTLIB[. proof,]::_cx node_of 
  inTermmap_typesOption apfstHOLogic.mk_not)( opp_quanti(1 t2)mk_not with_quantopp_quant i t1))

funvalts = SMTLIB   dest_quant_pair  t1 t2=with_quanteq_quant ( java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
|  (^\<HOL<>)(<onst_name><>HOLExclose,  true
  | eq_quant _ _ =   casedest_quant_pair i(.  (nodectxt_of)end

fun opp_quant  | >",t)
java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  |opp_quant  =java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

fun with_quant pred i (Const
      predq1q2 T1 T2java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
let t=Var(,) java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
        in SOME
      else objT= java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
ONE

fundest_quant_pair i<^>open.otclose t1 t2 =
fundest_allst
  ant_pair it1)=with_quant it1t2

fun  map Term\const_name\openPureall>t)
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
SOME1 )=HOLogicmk_TruepropHOLogicmk_eq(,)java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
|NONE  TERM(lift_quant,[t])

fun  eq_quant(<const_name\openHOLjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
)java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
rnfirst_order_match(. ctxt)pat obj

fun     SOMEsubst=
          java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
    SOME(yenv _ =subst_oftrip_qnt_vars<const_name<>Pure\<close ')
   NONE= strip_match.ake ('~ applyT patTs) end

funjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  1 erm  ( Var(""i T))
  | dest_all in

fun

 match_rulectxt ( {ounds ',concl =t' .} bs 
  let
ingleton(.polymorphicctxt'
    val (i, obj) = dest_alls (subst_types ctxt env bs       else NONE
  in
    (case try (strip_match ctxt (snd    ( =|with_quant _ _ NONE
      NONE
 |SOME >
        let
  
java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
        inSOME.makebs ~map ) )
  end
      add  idrulebounds

(* linearizing proofs and resolving types of bound variables *)java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6

funhas_steptab >rec_apply envfalsesteps

fun  (., .emptyjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
idruleids boundsis_fix_step
  in (id, (Inttab.update (id, ()) tabend

fun is_fix_rule rule revcase( pat java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
memberop=[,  Nnf_Neg] andalsolengthpremsjava.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77

fun lin_proof ctxt env (Z3_Node {id, rulein( ctxt| t= i t)
    stepsjava.lang.StringIndexOutOfBoundsException: Range [22, 0) out of bounds for length 0
  java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
    let t'  (Variable. ctxt)'
       t= ctxt boundsconcl
      val add
applyb=fold_maplin_proof  e)prems-  
    in
        rulepremsjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
        (case match_rule ctxtval   . substTs_samesubst)
          NONE => rec_apply env false steps
        | SOME        in  (Symtab. ('~ map applyTpatTs))end
      else rec_apply env 
    end

funlinearize  node 
  rev (snd (snd (lin_proof ctxt Symtab.empty node (Inttab.empty, [


(* overall proof parser *) id, Inttab. (,()tab step:) java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56

fun parse typs funs lines ctxt =
  let val (node, ctxt') = parse_proofjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   has_step   (,)

endjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4