| Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/PVS/trig_fnd/ (Beweissystem der NASA Version 6.0.9©) Datei vom 28.9.2014 mit Größe 2 kB |
|
Quellcode-Bibliothek toplevel.ML
Interaktion und |
|||||||||
|
(* Title: Pure/Isar/toplevel.ML
Author: Markus Wenzel, TU Muenchen Isabelle/Isar toplevel transactions. *) signature = option> val : ->bool exception UNDEF type state val make_state: theory option -> state val is_toplevel: state -> bool val is_theory: state -> bool val is_proof: state -> bool val is_skipped_proof: state -> bool val level: state -> int val previous_theory_of: state -> theory option val output_of: state -> Latex.text option val context_of: state -> Proof.context val generic_theory_of: state -> generic_theory val theory_of: state -> theory val proof_of: state -> Proof.state val proof_position_of: state -> int val is_end_theory: state -> bool val end_theory: Position.T -> state -> theory val presentation_context val is_theory state- bool val presentation_state:Proof -> state val pretty_context: is_skipped_proofstate>bool val pretty_state: state -> Pretty.T list val: .java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for lengt = -Latex type transition :Proof - : - .T >transition val empty: transition val :state. val val pretty_abstract ->PrettyT timing_oftransition- Time.time val type_error: transition -> string valposition .T- transition->transition val markers: Input.source list -> transition -> transition val timing: Time :transition val init_theory: (unit -> theory) -> valname_of - java.lang.StringIndexOutOfBoundsExceptio present java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for len valvaljava.lang.StringIndexOutOfBoundsException: Range [16, 7) out of bounds for : - val present: val begin_nes .generic- local_theory-transition> java.lang.StringIndexOutO valkeepstate-)- > val keep': (bool -> state -> unit) -> bool >local_theory- local_theory) >prese keep_proof( - ) >transition- java.lang.StringIndexOutOfBoundsException: Index 61 out l val:transition val ignored ->transition - -transition val generic_theory: (generic_theory -> generic_theory) -> transition -> transition val theory( >local_theory>Proof)- - java.lang.StringIndexOutOfBoundsException: Index 6 :( - theory)>transition- java.lang.StringIndexOutOfBoundsException: Index 60 out of val local_theory> .state> - java.lang.StringIndexOutOfBoundsException: Index 61 out of val end_main_target: transition -> val end_proof: (bool -> Proof.state -> Proof.transition ran val begin_nested_target: (Context : -> transition valend_nested_target >transition val local_theoryvalproof ( >Proof > .)- > ( ->local_theory -> presentation option - java.lang.StringIndexOutOfBoundsException: Ind vallocal_theory bool*PositionT - xstring .T -> (local_theory -> valactual_proof(.T->Proof_NodeT >transition- java.lang.StringIndexOutO val present_local_theory: (xstring * Position.T) ption- presentation-java.lang.StringI transition - transition val local_theory_to_proof': ( val : transition - transition (bool - local_theory- .state >transition>transition val local_theory_to_proof: (bool * val : Document_IDexectransition-list :- java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 4 val result val end_proof: (bool -> Proof.state -> Proof.context) -> transition -> transition val forget_proof: transition -> transition val val join_results result->(state * * ) java.lang.StringIndexOutOfBoundsException: Ind val ' bool- .state- .) >transition > val proofs: (Proof.state -> Proofend; val proof: (Proof.state -> Proof.state) -> transition -> transition java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 valskip_proof ( -> val skip_proof_open: transition -> transition val skip_proof_close: transition-> transition val exec_id:java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for valsetmp_thread_position: -(a - b) >' >' val command_errors: bool -> exception:bool-transition> - java.lang.StringIndexOutOfBoundsException: Index 61 ou reset_theory:state>state :state java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for leng :state option val fork_presentation: transition -> transition * transition type result valjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 on .element - state> *state end; structure Toplevel: TOPLEVEL = struct (** toplevel state **)cases_node_ Proof prf _) =h (Proof_Nodecurrentprf) exception UNDEF = Runtime.UNDEF; (* datatype node *) datatype node = Toplevel (*toplevel outside of theory body*) | Theory of generic_theory fun cases_proper_nodegh=cases_nodefn = UNDEF h; (*proof node, finish, original theory*) | ( val theory_node valproof_node Proofprf )>SOMEprf |_= ; valskipped_proof_nodefn = | _=> falsejava.lang.StringIndexOutOfBoundsException: Index fun cases_node f _ _ Toplevel = f () | cases_node _ g _ (Theory gthy) = g gthy of *(theory *Latex future); | (*current node with presentation context, previous theory, document output*) funfun (State((node, _,_)=node valoutput_ofState( _,output)=Option Future output (* datatype state *) type node_presentation = node * node( NONE>Toplevel thyTheoryContext thyjava.lang.StringI fun init_presentation () = .(. )java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length node_presentation str_of_state = datatypeToplevel case of (*current node with presentation context, previous theory, document output*) fun node_of (State ((node, Theory ContextTheory _ >"in theorytheory" fun previous_theory_of ( ContextProof)= int java.lang.StringIndexOutOfBoundsException (,(,output) . Futurejoinoutput fun make_state opt_thy = java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18 fun level state = (case node_of state of = java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17 | heory =>0 | Proof (prf, _) => Proof.leveljava.lang.StringIndexOutOfBoundsException: Index 0 out | Skipped_Proof (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds fun str_of_state state = java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24 > (case ProofProof) =" level" _>errorNostate ; | Theory (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for len |=~)java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length | Proof _ => "in proof mode" | Skipped_Proof _ => "in skippedfunis_end_theory State (,SOME ,_))=true (* current node *)end_theory( (Toplevel ) SOME, _)= thy fun is_toplevel state = (case node_of state _=error(Malformed"^Position.erepos; fun not fun is_proof structure =Proof_Data fun is_skipped_proof type option not (is_toplevel state) andalso; state=ifis_toplevelstatethenraiseUNDEFelse statejava.lang.StringIndexOutOfBoundsE proper_node_case g = cases_proper_nodef (roper_node_of); val context_of = presentation_context0java.lang.StringIndexOutOfBoundsException: In e_case I ContextProof Proofcontext_of; val theory_of = proper_node_case Context.theory_of Proof.theory_of; val proof_of = proper_node_casejava.lang.StringIndexOutOfBoundsException: Index 0 o fun proof_position_of| <if_none\open ( Theory(.Proof ctxt (, ))<>; (case proper_node_of java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0 >~)java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 1 ( (Toplevel ) SOME_,_)) =true | is_end_theory _ = false; fun end_theory _ (State ((Toplevel, _), (SOME thy, _))) = thy | end_theory pos _ = error ("Malformed theory" ^ Position.here pos); (* presentation context *) structure Presentation_State = Proof_Data ( typeT=state; fun init| (_, (, ) >gthy ); fun Local_Theorypretty ; fun presentation_context (node_of java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for le >. SOME (, (, )))); funpresentation_statectxt= Presentation_State.get ctxt |> \<^if_none>\<open>State (node_presentation (Theory (Context. (* print state *) fun pretty_context state = if is_toplevel state then [] else let val gthy = java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 =>raisejava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for leng |Theory >gjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for le |Proof(,(, ))= gthy | Skipped_Proof (_, (_, val lthy inKeepof (ool -> unit)*presentationoptionjava.lang.StringIndexOutOfBoundsException: fun pretty_state state = java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 Toplevel>[ | Theory _ => [] | =State(ode_pr, (rev_thyNONE)java.lang.StringIndexOutOfBoundsException: Index 50 |Skipped_Proof(, _ > [.str(skippedproof depth"^string_of_int d)); fun pretty_abstract state = Pretty.str Execution.fork{name= Toplevel.present_state" po val _ = ML_system_pp (fn _ => fn _; (** toplevel transitions **) (* primitive transitions *) type presentation = state - in State(node_pr,(prev_thy Option.map presentg))end datatype trans (*init theory*) of >theory (*formal exit of theory*) Exit | (*keep state unchanged*) Keep val () = f state; (*node transaction and presentation*) Transaction of (bool -> nodejava.lang.StringIndexOutOfBoundsException: Index 0 out of local fun val node = node_of state; let val state = State (node_pr, (prev_thy, NONE)); fun present pr = if fork andalso (Init f, Toplevel) => Execution.fork {name = "Toplevel. | (Exit, Theory (Context.Theory let ( state |> > else Future (Theory (Context.Theory (tap Thm.expose_theory (Theory.end_theory thy NONE; in State (node_pr, (prev_thy, Option.map | (Transaction _, Toplevel) => raise UNDEF fun no_update f g state = Runtime.controlled_execution (try generic_theory_of state) (fn () => let val prev_thy = previous_theory_of handle Runtime.UNDEF => apply_tr int trjava.lang.StringI val () = f state; val node_pr = node_presentation in present_state false fun apply_capture int name markers trans state = fun update f Exn.Res res => res Runtime.controlled_execution (fn () => let val node (* datatype val =get_theory; in present_state true g (f name string (*command name*) fun apply_tr int trans state = (case (trans, node_of state) of (Init f Toplevel)= Runtimet: Time, (*prescient timing information*) node_presentation ContextTheory (f ()))),(NONE,NONE)( | (Exit let val State ((node', pr_ctxt), _) = state| update (fn _ => node_presentation (Theory (Context.Theory (tap Thm.expose_theory (Theory.end_theory thy))))) NONE in | (Keepfunmakenamepos make_transition (, pos [],TimezeroTime [); | (Transaction _, Toplevel) => raise UNDEF | (Transactionvalempty= make""Positionnone | _ => raise UNDEF); fun apply_body_[ _ =raiseUNDEF | apply_body int [tr] java.lang.StringIndexOutOfBoundsException: Index 0 out of boun |apply_body inttr:trs = apply_body int trs state handle Runtime.UNDEF => apply_tr int tr state; fun apply_markers namefun msgtr= let val state' = .herepos_of); (fn n at_commandtr At tr n(', NONE) end;; in fun java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24 Exn res = res | Exn.Exn exn => (state, SOME exn)); end; (* datatype transition *) datatype {nameming = map_transition(n (, , markers ,t) => pos: Position.T, (*source position*) markers: Input.source list, (*semantic document markers*) name , , , trans); trans fun (name, pos, markers, timing, tr :: trans)); Transition {name = name, pos = pos, markers = markers, timing fun map_transition f (Transition {name, pos, markers, timing, trans}) = (f(, pos,markerstimingtrans; fun make name java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for val (* diagnostics *) fun name_of (Transition {name, ...}) = name; pos_of (Transition{pos ...}) pos fun timing_of (Transition {timing, ...})java.lang.StringIndexOutOfBoundsException: I tr= msg ^ "command " ^ quote (Markup.markup Markup.keyword1 (name_of tr)) ^ fun java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length tr= "At " tr; fun type_error tr = command_msg "Bad context for " tr; (* modify transitions *) fun position pos = map_transition ( name pos markerstimingtrans); markers=map_transitionfn(ame, _ timingtrans=java.lang.StringIndexOutOfBoundsExcept (name, pos, markers, timing, trans)funis_malformed =name_oftr=malformedN; fun timing timing = map_transition (fn (name, pos, markers, _,java.lang.StringIndexOutOfB name posmarkers timing trans)); fun add_trans tr = map_transition (fn (namefun posmsg * val fungeneric_theory =transaction (fn_=> (, pos markerstiming])java.lang.StringIndexOutOfBoundsException: Index 36 out of b fun init_theory f = add_trans (java.lang.StringIndexOutOfBoundsException: Index 32 ou funis_initTransition{rans = [Init _= [ _], ..} = | is_init _ = false; fun modify_init f tr = if is_init tr then init_theory f _ => raise)); val exit = add_trans Exit; fun java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 transactionf= N; fun transaction0 f = present_transaction java.lang.StringIndexOutOfBoundsException: I g=add_transKeepfn_= _= ),SOMEg) fun keep f = add_trans (Keep (K f, NONE)); fun keep' f = add_trans (Keep (f, NONE)); fun keep_proof f = keep (fn st => if is_proofelse . lthy else if is_skipped_proof st then () else warning "No proof state"); val ignoredN = " al malformedN ="malformed"; fun is_ignored tr ( gthy ) end fun is_malformed tr = name_of tr = malformedN; fun ignored pos =java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds f fun fnTheoryContext. lthy=>( (. lthy ) (* theory transitions *) fun generic_theory f = transaction (fn _ => (fn Theory gthy => node_presentation (Theory (f gthy)fun begin_nested_target f =transaction |_= )); fun theory' f = present_transaction (fn int => (fn Theorylet let val ' gthy; >Sign |> f int | .reset_group in node_presentation ( | _ = raise NDEF; fun theory f = theory' ( Theory(Context.Proof lthy > fun begin_main_target begin f = transaction ( casetry .end_nested_cmd of (fn (.Theory) =java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds f let val lthy thy; val gthy = if begin then Contextfunrestricted_contextSOMEstrict))= else Target_Context.end_named_cmd . (.restrictedstrict scope _java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17 ( . java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 4 [] => =. Pretty ); in (Theory gthy, lthy) end | _ => raise UNDEF)); val end_main_target = transaction (fn _ => (fn Theory (Context.Proof lthy) => fint | _ => raise UNDEF)); fun begin_nested_target >raiseUNDEF; (fnfunlocal_theoryrestricted targetf= java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11 java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29 in Theory (Context( )java.lang.StringIndexOutOfBoundsException: Index 11 out of bou | _ => raise UNDEF))java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds val (, (, ) > (fn Theory (Context.Proof lthy) => (case try Target_Context.end_nested_cmd lthy of SOME gthy' => (Theory gthy', lthy) | NONE => raise UNDEF) | _ => raise UNDEF)); fun restricted_context (SOME (strict, scope)) = Proof_ContextifcanProof ) state | restricted_contextlet 'targetf=present_transaction(n > ( > let finishlthy=.switch_named_cmd gthy val lthy'else raiseUNDEF | restricted |> Local_Theory.new_group |> f |_ = raise)); |> Local_Theory.reset_group; in (Theory (finish lthy'), lthyjava.lang.StringIndexOutOfBoundsException: Index 0 o | _ => fnTheorygthyjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds fun local_theory restricted target f = ' restricted (K f)NONE funpresent_local_theory target g =present_transactionfn_= (fn Theory gthy => finishlthy = .switch_named_cmd targetgthyjava.lang.StringIndexOutOfBoundsException: in (Theoryifskip schematic_goal= true _=>raiseUNDEF (SOME g); (* proof transitions *) fun end_prooff =transaction (fn int> (java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54 let =. prf if can (Proof.assert_bottom true) state then(.init , (,gthy) | >raise))java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for le val ctxt' targetf begin_proof gthy = ctxt; in (Theory >java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40 end' ( f; java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 ))java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 2 local = fn > (fn Theory gthy => let val (finish val . ""; val skip = (document fn (,(,orig_gthy) > val schematic_goal = try Proof. . .current) java.lang.StringIndexOutOfBoundsException: val _ fun' = fn int =java.lang.StringIndexOutOfBoundsException: Index 39 out of b ifskip = truethen warning = ); else (); in if skip andalso funprooff=proofs(Seq o .Result)oo; 0( (.global_skip_proof prf )) else Proof (Proof_Nodeval = ' Kjava.lang.StringIndexOutOfBoundsException: Index 23 o end | _ => funactual_proof f =transaction0( =java.lang.StringIndexOutOfBoundsException: Ind in fun local_theory_to_proof' restricted fn = gthy> let val (finish, lthy) = Target_Context.switch_named_cmd target gthy; valp = lthy |> restricted_context restricted |> Local_Theory.new_group | f; in (finish fn d x > ( 1 ) fun local_theory_to_proof restricted target f = local_theory_to_proof' ( (gthy ) >Theory fun theory_to_proof f = begin_proof (fn _java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length (T .reset_group .change_checkoProof_Contexttheory_ofjava.lang.StringIndexOutOfBoun case of put_id Positionput_id(Document_ID.print) | _ => in ( pos ; end; valf = (fn > (fn Proof (prf, (_, orig_gthy)) => ifProof (.current) raise else | Skipped_Proof (_,( | _ => fun proofs' ( (prfx) = Proof (roof_Node (fintprf,xjava.lang.StringIndexOutOfBoundsException: Inde | skip as Skipped_Proof _ => skip | _ => raise UNDEF)); fun proof' f = proofs' ((Seq.single o Seq.Result) oo f); val proofs = proofs' o K; val proof val enabled= (* skipped proofs *) funactual_prooff= transaction0( _ => (fn Proof (prf, x) => Proof (f '= | _ => raise UNDEF)); fun skip_proof f = transaction0 (fn _ => (fn skip as Exn.Exnexn=>SOMEexn | _ => raise UNDEF)); val skip_proof_open |Exn.Res _ = opt_errjava.lang.StringIndexOutOfBoundsException: In (fn Skipped_Proof (d, x) => java.lang.StringIndexOutOfBoundsException: Index 0 out of | _ => raise UNDEF)); val skip_proof_close = transaction0 (fn _ => (fn Skipped_Proof (0, (gthy, _)) | not( tr?.command_timingname_of) (pos_of tr |Skipped_Proof (d, )= ( -1 x) | _ => raise UNDEF)); (** toplevel transactions **) (* runtime position *) fun exec_id id (tr as Transition {pos, ...}) = let val put_id = Position.put_id (Document_ID.print id) in fn)= inttr st ); fun setmp_thread_positionfn. exn_info>exn_info Position.setmp_thread_data (Position| =>(.exn_context ( context_of) exn at_commandtr; (* command transitions *) local fun command_errorsint st let val(' ) = [,SOMEst' (is_ignoredtr) andalso is_none opt_err andalso Options.default_bool val opt_err'funcommand_exception int tr st= if then (case Exn.capture (t, NONE= st Exn.Exn exn =>SOME exn | Exn.Res _ = if Exn.is_interrupt_properexnthenExnreraiseexn else opt_err; in (st', opt_err') end; fun app int (tr as Transition {name, markers, trans, ...}) = ((apply_capturejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds |> not (is_ignoredifcheckst then java.lang.StringIndexOutOfBoundsException: Index 23 ##> Option.map (fn Runtime.UNDEF => ERROR java.lang.StringIndexOutOfBoundsException: Ran #>show_state tr; fun command_transition int tr st = let val (st', opt_err) = tmp_generic_context(ry(.Proof presentation_context0)st (fn () => app int tr st) (); opt_err'> (0, gthy gthy)java.lang.StringIndexOutOfBoundsException: Index 56 out val java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13 incasetry st in fun command_errors int tr st = (case command_transition int tr st of (st', NONEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for l java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5 tr = (case fun acc )=add st=st | (_, SOME (exn|acc x acc(. x; if.is_interrupt_proper then .reraise else raise Runtime.EXCURSION_FAIL end (* reset state *) local fun java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length if val put_result.map_context Result; else #2 (command_errors falsefun timing_estimate elem in val reset_theory = reset_state is_theory forget_proof; val reset_proof = reset_state is_proof (transaction0 (fn _ => (fn Theory gthy => Skipped_Proof (0, ( infold(fn tr=> fnt= timing_of tr + t) trs TimezeroTimeend; | _ => raise UNDEF))); val reset_notepad = reset_state (fn st => (case try proof_ofNONE>false SOME (Proofis_notepadstate) orelse . java.lang.StringIndexOutOfBoundsException: Inde | NONE = notProof stateandalso ( Proof.)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for le end; (* scheduled proof result *) datatype result = Result of transition * state | Result_List of result listjava.lang.StringIndexOutOfBoundsException: Range [0, 29) Result_Future of result future; fun join_results result = let fun add (tr, st') res = (case res of [] => [(make_state NONE, tr, st')] | (_, _, st) :: _ => (st, tr, st') :: res); funacc(esult r) = add r | acc (Result_List rs) = fold acc rs | (Result_Futurex acc Future x); in rev (acc result []) end; local structure Result = Proof_Data ( type T = result; fun init _ = Result_Listval tr1 ) = fork_presentationtr ); valget_result=ResultgetoProof; val put_result = Proof(fn( > tr1); fun timing_estimate elem = let val trs = tl (Thy_Element.flat_element elem commandtr2 java.lang.StringIndexOutOfBou trttrszeroTime; java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9 (case try proof_of =timing_estimate; NONE ( estimate' | SOME state => not (Proofterm.any_proofs_enabled ()) andalso not(.is_relevantstate) andalso (if can (Proof.assert_bottom true) state then Future.proofs_enabled 1 else Future.proofs_enabled2 orelse Future.proofs_enabled_timing )); fun tr st= command_exception (Options.default_bool \<^system_option>\<open>show_results\<close>) tr s in future_proof = fun atom_result keywords tr st = let val st' = if.1 . keywords ) java.lang.StringIndexOutOfBoundsException: Index 83 out of bounds let val(, tr2 = fork_presentation tr; val _ = Executionfork{name= Topleveldiag,pos pos_of tr pri = ~} mmand tr1); in command tr2 st end elsecommand tr st in (Result (tr, st'), st') end; fun element_result keywords (Thy_Element.Element (tr, NONE)) st = atom_result keywords tr s | element_result | fold_map ( keywords body_elems |> end_tr1 let val (head_result, st') = atom_result keywords head_tr st; val (body_elems, end_tr) = element_rest; val estimate = timing_estimate elem; in if not (future_proofs_enabled estimate st') # (fn(res state)=>state | put_result ()); java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13 java.lang.StringIndexOutOfBoundsException: Index 97 out of bounds for length 97 val (proof_results, st( > >Proof >Result ( state; (:proof_results' java.lang.StringIndexOutOfBoundsException: Index 67 out of boun else let (nd_tr1 end_tr2)=fork_presentationend_tr; val finish = Context. = valfuture_proof= Proof.future_proof (fn state => Execution.fork {name = "Toplevel.future_proof", pos = pos_of head_tr, pri = ~1} (fn () => let val State ((java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for l val node'endjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for val (results, result_state) = State (node_presentation node', prev_thy) |> fold_map (element_result keywords) body_elems ||> command end_tr1; in (Result_List results, presentation_context0 result_state) end)) #> (fn (res, state') => state' |> put_result (Result_Future res)); val forked_proof = proof (future_proof #> (fn state => state |> Proof.local_done_proof |> put_result (get_result state))) o end_proof (fn _ => future_proof #> (fn state => state |> Proof.global_done_proof |> Result.put (get_result state))); val st'' = st' |> command (head_tr |> reset_trans |> forked_proof); val end_st = st'' |> command end_tr2; val end_result = Result (end_tr, end_st); val result = Result_List [head_result, Result.get (presentation_context0 st''), end_result]; in (result, end_st) end end; end; end; val st'' = st' | in(Result_List head_result :: proof_results), st') end val end_st = st'' |> command end_tr2; val val(, end_tr val result java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30 in (result, end_st) end end; end; ; ¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.14Bemerkung: (vorverarbeitet) ¤*Bot Zugriff |
|
2026-03-28