|
1479
|
1 |
(* Title: HOLCF/porder0.thy
|
|
298
|
2 |
ID: $Id$
|
|
1479
|
3 |
Author: Franz Regensburger
|
|
298
|
4 |
Copyright 1993 Technische Universitaet Muenchen
|
|
|
5 |
|
|
|
6 |
Definition of class porder (partial order)
|
|
|
7 |
|
|
|
8 |
The prototype theory for this class is void.thy
|
|
|
9 |
|
|
|
10 |
*)
|
|
|
11 |
|
|
|
12 |
Porder0 = Void +
|
|
|
13 |
|
|
|
14 |
(* Introduction of new class. The witness is type void. *)
|
|
|
15 |
|
|
|
16 |
classes po < term
|
|
|
17 |
|
|
|
18 |
(* default type is still term ! *)
|
|
|
19 |
(* void is the prototype in po *)
|
|
|
20 |
|
|
|
21 |
arities void :: po
|
|
|
22 |
|
|
2394
|
23 |
consts
|
|
|
24 |
|
|
|
25 |
"<<" :: "['a,'a::po] => bool" (infixl 55)
|
|
|
26 |
|
|
|
27 |
syntax (symbols)
|
|
|
28 |
|
|
|
29 |
"op <<" :: "['a,'a::po] => bool" (infixl "\\<sqsubseteq>" 55)
|
|
298
|
30 |
|
|
|
31 |
rules
|
|
|
32 |
|
|
|
33 |
(* class axioms: justification is theory Void *)
|
|
|
34 |
|
|
2394
|
35 |
refl_less "x<<x"
|
|
1479
|
36 |
(* witness refl_less_void *)
|
|
298
|
37 |
|
|
1479
|
38 |
antisym_less "[|x<<y ; y<<x |] ==> x = y"
|
|
|
39 |
(* witness antisym_less_void *)
|
|
298
|
40 |
|
|
1479
|
41 |
trans_less "[|x<<y ; y<<z |] ==> x<<z"
|
|
|
42 |
(* witness trans_less_void *)
|
|
298
|
43 |
|
|
|
44 |
(* instance of << for the prototype void *)
|
|
|
45 |
|
|
1479
|
46 |
inst_void_po "((op <<)::[void,void]=>bool) = less_void"
|
|
298
|
47 |
|
|
|
48 |
end
|
|
1274
|
49 |
|
|
|
50 |
|
|
|
51 |
|
|
|
52 |
|
|
|
53 |
|