# HG changeset patch
# User mueller
# Date 908804995 -7200
# Node ID 96b048840bb394a5113b8d98c8229a8bdd48c7bd
# Parent  000879172ee4a232cbe6f1d589d2fe894b715216
little bug ;-)

diff -r 000879172ee4 -r 96b048840bb3 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 *)