src/HOLCF/Sprod1.ML
author kleing
Mon Jun 21 10:25:57 2004 +0200 (2004-06-21)
changeset 14981 e73f8140af78
parent 12030 46d57d0290a2
child 15567 60743edae74a
permissions -rw-r--r--
Merged in license change from Isabelle2004
slotosch@2640
     1
(*  Title:      HOLCF/Sprod1.ML
nipkow@243
     2
    ID:         $Id$
clasohm@1461
     3
    Author:     Franz Regensburger
nipkow@243
     4
*)
nipkow@243
     5
nipkow@243
     6
(* ------------------------------------------------------------------------ *)
nipkow@243
     7
(* less_sprod is a partial order on Sprod                                   *)
nipkow@243
     8
(* ------------------------------------------------------------------------ *)
nipkow@243
     9
paulson@9248
    10
Goalw [less_sprod_def]"(p::'a ** 'b) << p";
paulson@9245
    11
by (fast_tac (HOL_cs addIs [refl_less]) 1);
paulson@9245
    12
qed "refl_less_sprod";
nipkow@243
    13
paulson@9248
    14
Goalw [less_sprod_def]
paulson@9245
    15
        "[|(p1::'a ** 'b) << p2;p2 << p1|] ==> p1=p2";
paulson@9245
    16
by (rtac Sel_injective_Sprod 1);
paulson@9245
    17
by (fast_tac (HOL_cs addIs [antisym_less]) 1);
paulson@9245
    18
by (fast_tac (HOL_cs addIs [antisym_less]) 1);
paulson@9245
    19
qed "antisym_less_sprod";
nipkow@243
    20
paulson@9248
    21
Goalw [less_sprod_def]
paulson@9245
    22
        "[|(p1::'a**'b) << p2;p2 << p3|] ==> p1 << p3";
paulson@9248
    23
by (blast_tac (HOL_cs addIs [trans_less]) 1);
paulson@9245
    24
qed "trans_less_sprod";