src/HOLCF/Up2.thy
author paulson
Fri, 31 Jan 1997 17:13:19 +0100
changeset 2572 8a47f85e7a03
parent 2278 d63ffafce255
child 2640 ee4dfce170a0
permissions -rw-r--r--
ex_impE was incorrectly listed as Safe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2278
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     1
(*  Title:      HOLCF/Up2.thy
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     2
    ID:         $Id$
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     3
    Author:     Franz Regensburger
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     4
    Copyright   1993 Technische Universitaet Muenchen
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     5
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     6
Class Instance u::(pcpo)po
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     7
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     8
*)
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     9
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    10
Up2 = Up1 + 
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    11
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    12
(* Witness for the above arity axiom is up1.ML *)
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    13
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    14
arities "u" :: (pcpo)po
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    15
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    16
rules
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    17
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    18
(* instance of << for type ('a)u  *)
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    19
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    20
inst_up_po    "((op <<)::[('a)u,('a)u]=>bool) = less_up"
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    21
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    22
end
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    23
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    24
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    25