equal
deleted
inserted
replaced
|
1 (* Title: Pure/Thy/present.ML |
|
2 ID: $Id$ |
|
3 Author: Markus Wenzel, TU Muenchen |
|
4 |
|
5 Theory presentation. (* FIXME fake implementation *) |
|
6 *) |
|
7 |
|
8 signature BASIC_PRESENT = |
|
9 sig |
|
10 val section: string -> unit |
|
11 end; |
|
12 |
|
13 signature PRESENT = |
|
14 sig |
|
15 include BASIC_PRESENT |
|
16 val thm: string -> thm -> unit |
|
17 end; |
|
18 |
|
19 structure Present: PRESENT = |
|
20 struct |
|
21 |
|
22 fun section _ = (); |
|
23 fun thm _ _ = (); |
|
24 |
|
25 end; |
|
26 |
|
27 structure BasicPresent: BASIC_PRESENT = Present; |
|
28 open BasicPresent; |