little bug ;-)
authormueller
Mon, 19 Oct 1998 15:49:55 +0200
changeset 5676 96b048840bb3
parent 5675 000879172ee4
child 5677 4feffde494cf
little bug ;-)
src/HOLCF/IOA/meta_theory/Abstraction.ML
--- 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 *)