IOA/example/Correctness.ML
changeset 224 060ea04f6b50
parent 171 16c4ea954511
--- a/IOA/example/Correctness.ML	Wed Mar 01 13:26:50 1995 +0100
+++ b/IOA/example/Correctness.ML	Wed Mar 01 17:32:10 1995 +0100
@@ -89,7 +89,7 @@
 by(case_tac "sq(sen(s))=[]" 1);
 
 by(asm_full_simp_tac hom_ss' 1);
-by(fast_tac (HOL_cs addSDs [plus_leD1 RS leD]) 1);
+by(fast_tac (HOL_cs addSDs [add_leD1 RS leD]) 1);
 
 by(case_tac "m = hd(sq(sen(s)))" 1);
 
@@ -97,7 +97,7 @@
                      [imp_ex_equiv,neq_Nil_conv,ex_all_equiv]) 1);
 
 by(asm_full_simp_tac hom_ss 1);
-by(fast_tac (HOL_cs addSDs [plus_leD1 RS leD]) 1);
+by(fast_tac (HOL_cs addSDs [add_leD1 RS leD]) 1);
 
 by(asm_full_simp_tac hom_ss 1);
 result();