File: proofobjects_init.ml

package info (click to toggle)
hol-light 20120602-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 23,452 kB
  • sloc: ml: 348,797; cpp: 438; java: 279; makefile: 252; sh: 183; yacc: 108; perl: 78; ansic: 57; sed: 39
file content (21 lines) | stat: -rw-r--r-- 529 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
let (use_proofobjects, use_extended_proofobjects, use_coq) =
  try
    let n = Sys.getenv "HOLPROOFOBJECTS" in
    if n = "BASIC" then
      (true, false, false)
    else if n = "EXTENDED" then
      (true, true, false)
    else if n = "COQ" then
      (true, true, true)
    else
      (false, false, false)
  with Not_found -> (false, false, false);;

let _ =
  if use_proofobjects then
    if use_coq then
      loads "proofobjects_coq.ml"
    else
      loads "proofobjects_trt.ml"
  else
    loads "proofobjects_dummy.ml";;