-
Notifications
You must be signed in to change notification settings - Fork 2
/
index.all
60 lines (31 loc) · 867 Bytes
/
index.all
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
(* Copyright E.M.Clarke and Xudong Zhao, Jan 22, 1991 *)
(* ANALYTICA--A THEOREM PROVING SYSTEM FOR MATHEMATICA *)
Unprotect[$Path]
$Path = Join[$Path, {"~/analytica", "~/analytica/examples"}];
Protect[$Path]
<<user_interface.M;
<<system_interface.M;
(* Proof context. *)
<<environment.M;
(* Quantification. *)
<<quantify.M;
(* Simplify the sequent to be proved. *)
<<simplify.M;
(* Rewrite the sequent to be proved. *)
<<rewrite.M;
(* Handle equalities. *)
<<equation.M;
(* Handle inequalities. *)
<<inequality.M;
(* Rules for types. *)
<<types.M;
(* Rules for mathematical functions. *)
<<functions.M;
(* Load the main routine for prover. *)
<<prover.M;
(* Add lemmas and rewrite rules about analysis. *)
<<lemmas.m;
(* The top most context is "global". *)
StartSection[Global];
(* Extend the recursion limit. *)
$RecursionLimit = 512;