author | mueller |
Mon, 19 Oct 1998 15:49:55 +0200 | |
changeset 5676 | 96b048840bb3 |
parent 5675 | 000879172ee4 |
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 *)