src/HOLCF/Cprod1.ML
changeset 10212 33fe2d701ddd
parent 9248 e1dee89de037
child 11025 a70b796d9af8
     1.1 --- a/src/HOLCF/Cprod1.ML	Thu Oct 12 18:09:06 2000 +0200
     1.2 +++ b/src/HOLCF/Cprod1.ML	Thu Oct 12 18:38:23 2000 +0200
     1.3 @@ -3,7 +3,7 @@
     1.4      Author:     Franz Regensburger
     1.5      Copyright   1993  Technische Universitaet Muenchen
     1.6  
     1.7 -Partial ordering for cartesian product of HOL theory Prod.thy
     1.8 +Partial ordering for cartesian product of HOL theory Product_Type.thy
     1.9  *)
    1.10  
    1.11  
    1.12 @@ -15,7 +15,7 @@
    1.13  by (subgoal_tac "(fst x,snd x)=(fst y,snd y)" 1);
    1.14  by (rotate_tac ~1 1);
    1.15  by (asm_full_simp_tac(HOL_ss addsimps[surjective_pairing RS sym])1);
    1.16 -by (asm_simp_tac (simpset_of Prod.thy) 1);
    1.17 +by (asm_simp_tac (simpset_of Product_Type.thy) 1);
    1.18  qed "Sel_injective_cprod";
    1.19  
    1.20  Goalw [less_cprod_def] "(p::'a*'b) << p";