test/Tools/isac/ADDTESTS/All_Ctxt.thy
changeset 60565 f92963a33fe3
parent 60558 2350ba2640fd
child 60571 19a172de0bb5
     1.1 --- a/test/Tools/isac/ADDTESTS/All_Ctxt.thy	Sun Oct 09 06:53:03 2022 +0200
     1.2 +++ b/test/Tools/isac/ADDTESTS/All_Ctxt.thy	Sun Oct 09 07:44:22 2022 +0200
     1.3 @@ -116,8 +116,8 @@
     1.4  ML \<open>
     1.5    "artifically inject assumptions";
     1.6    val (SOME (iform, cform), SOME (ires, cres)) = Ctree.get_obj Ctree.g_loc pt (fst p);
     1.7 -  val ctxt = ContextC.insert_assumptions [TermC.str2term "x < sub_asm_out",
     1.8 -                                 TermC.str2term "a < sub_asm_local"] cres;
     1.9 +  val ctxt = ContextC.insert_assumptions [TermC.parse_test @{context} "x < sub_asm_out",
    1.10 +                                 TermC.parse_test @{context} "a < sub_asm_local"] cres;
    1.11    val pt = Ctree.update_loc' pt (fst p) (SOME (iform, cform), SOME (ires, ctxt));
    1.12  \<close>
    1.13