src/HOLCF/IOA/meta_theory/Abstraction.ML
changeset 5676 96b048840bb3
parent 5670 5e7d9455de96
child 5677 4feffde494cf
--- a/src/HOLCF/IOA/meta_theory/Abstraction.ML	Mon Oct 19 15:38:28 1998 +0200
+++ b/src/HOLCF/IOA/meta_theory/Abstraction.ML	Mon Oct 19 15:49:55 1998 +0200
@@ -385,7 +385,7 @@
 by (pair_tac "ex" 1);
 by (Seq_case_simp_tac "y" 1);
 (* UU case *)
-by (asm_full_simp_tac (simpset() addsimps [UU_is_Conc])1);
+by (asm_full_simp_tac (simpset() addsimps [nil_is_Conc])1);
 (* nil case *)
 by (asm_full_simp_tac (simpset() addsimps [nil_is_Conc])1);
 (* cons case *)