test/Tools/isac/Knowledge/algein.sml
changeset 60586 007ef64dbb08
parent 60571 19a172de0bb5
child 60650 06ec8abfd3bc
     1.1 --- a/test/Tools/isac/Knowledge/algein.sml	Mon Oct 31 18:28:36 2022 +0100
     1.2 +++ b/test/Tools/isac/Knowledge/algein.sml	Mon Nov 07 17:37:20 2022 +0100
     1.3 @@ -100,10 +100,10 @@
     1.4  val thy = @{theory "Isac_Knowledge"}; 
     1.5  val ctxt = Proof_Context.init_global thy;
     1.6  val rew_ord = Rewrite_Ord.function_empty;
     1.7 -val erls = Rule_Set.Empty;
     1.8 +val asm_rls = Rule_Set.Empty;
     1.9  val thm = ThmC.thm_from_thy thy "sym_mult_zero_right";
    1.10  val t = TermC.parse_test @{context} "0 = (0::real)";
    1.11 -val SOME (t',_) = rewrite_ ctxt rew_ord erls false thm t;
    1.12 +val SOME (t',_) = rewrite_ ctxt rew_ord asm_rls false thm t;
    1.13  UnparseC.term t' = "0 = ?a1 * 0"; (* = true*)
    1.14  
    1.15  val sube = ["?a1 = (3::real)"];
    1.16 @@ -119,6 +119,6 @@
    1.17  
    1.18  val thm = ThmC.thm_from_thy thy "sym";
    1.19  (*----- STOPPED.WN0x?: Widerspruch 3 = 777: sym contains "==>" instead of "=" !!!
    1.20 -val SOME (t''',_) = rewrite_ thy rew_ord erls false thm t'';
    1.21 +val SOME (t''',_) = rewrite_ thy rew_ord asm_rls false thm t'';
    1.22  *)
    1.23  ( *----------------^^^^^^^^^^^^^^ ERROR Unbound schematic variable: ?a1*)