test/Tools/isac/BridgeLibisabelle/mathml.sml
changeset 60230 0ca0f9363ad3
parent 59997 46fe5a8c3911
child 60242 73ee61385493
     1.1 --- a/test/Tools/isac/BridgeLibisabelle/mathml.sml	Mon Apr 19 11:45:43 2021 +0200
     1.2 +++ b/test/Tools/isac/BridgeLibisabelle/mathml.sml	Mon Apr 19 15:02:00 2021 +0200
     1.3 @@ -42,24 +42,24 @@
     1.4  
     1.5  (*========== inhibit exn AK110725 ================================================
     1.6  "----- check 'manually' the xml-output of calling functions ------";
     1.7 -formula2xml 1 (str2term str);
     1.8 +formula2xml 1 (TermC.str2term str);
     1.9  
    1.10  (* AK110725 
    1.11 -(*str2term str; (* ERROR: Inner syntax error at "; 0 < ?n |] ==> ?a / ?b ^ ?n = ?a * ?b ^ - ?n"
    1.12 -                   Failed to parse term*)*)
    1.13 -"~~~~~ fun str2term, args:"; val (str) = (str);
    1.14 +(*TermC.str2term str; (* ERROR: Inner syntax error at "; 0 < ?n |] ==> ?a / ?b ^ ?n = ?a * ?b ^ - ?n"
    1.15 +                   Failed to TermC.parse term*)*)
    1.16 +"~~~~~ fun TermC.str2term, args:"; val (str) = (str);
    1.17  ThyC.get_theory "Isac_Knowledge";
    1.18  
    1.19 -parse_patt;
    1.20 -parse_patt (ThyC.get_theory "Isac_Knowledge");
    1.21 -(*parse_patt (ThyC.get_theory "Isac_Knowledge") str; (* ERROR: Inner syntax error at "; 0 < ?n |] ==> ?a / ?b ^ ?n = ?a * ?b ^ - ?n"
    1.22 -Failed to parse term*)*)
    1.23 +TermC.parse_patt;
    1.24 +TermC.parse_patt (ThyC.get_theory "Isac_Knowledge");
    1.25 +(*TermC.parse_patt (ThyC.get_theory "Isac_Knowledge") str; (* ERROR: Inner syntax error at "; 0 < ?n |] ==> ?a / ?b ^ ?n = ?a * ?b ^ - ?n"
    1.26 +Failed to TermC.parse term*)*)
    1.27  
    1.28 -"~~~~~ fun parse_patt, args:"; val (thy, str) = ((ThyC.get_theory "Isac_Knowledge"), str);
    1.29 +"~~~~~ fun TermC.parse_patt, args:"; val (thy, str) = ((ThyC.get_theory "Isac_Knowledge"), str);
    1.30  (thy, str) 
    1.31  |>> ThyC.to_ctxt
    1.32  (*|-> Proof_Context.read_term_pattern (*ERROR: Inner syntax error at "; 0 < ?n |] ==> ?a / ?b ^ ?n = ?a * ?b ^ - ?n"
    1.33 -Failed to parse term*)*)
    1.34 +Failed to TermC.parse term*)*)
    1.35  
    1.36  Proof_Context.read_term_pattern;
    1.37  (@{theory "Isac_Knowledge"}, str) |>> ThyC.to_ctxt;