File: proofobjects_init.ml

package info (click to toggle)
hol-light 20170109-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 36,568 kB
  • ctags: 8,549
  • sloc: ml: 540,018; cpp: 439; lisp: 286; java: 279; makefile: 262; sh: 229; 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";;