Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOLCF/Sprod1.ML
author paulson
Wed, 05 Jul 2000 16:37:52 +0200
changeset 9248 e1dee89de037
parent 9245 428385c4bc50
child 12030 46d57d0290a2
permissions -rw-r--r--
massive tidy-up: goal -> Goal, remove use of prems, etc.

(*  Title:      HOLCF/Sprod1.ML
    ID:         $Id$
    Author:     Franz Regensburger
    Copyright   1993  Technische Universitaet Muenchen

*)

(* ------------------------------------------------------------------------ *)
(* less_sprod is a partial order on Sprod                                   *)
(* ------------------------------------------------------------------------ *)

Goalw [less_sprod_def]"(p::'a ** 'b) << p";
by (fast_tac (HOL_cs addIs [refl_less]) 1);
qed "refl_less_sprod";

Goalw [less_sprod_def]
        "[|(p1::'a ** 'b) << p2;p2 << p1|] ==> p1=p2";
by (rtac Sel_injective_Sprod 1);
by (fast_tac (HOL_cs addIs [antisym_less]) 1);
by (fast_tac (HOL_cs addIs [antisym_less]) 1);
qed "antisym_less_sprod";

Goalw [less_sprod_def]
        "[|(p1::'a**'b) << p2;p2 << p3|] ==> p1 << p3";
by (blast_tac (HOL_cs addIs [trans_less]) 1);
qed "trans_less_sprod";
isabelle