You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.3 KiB
44 lines
1.3 KiB
5 years ago
|
(*
|
||
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||
|
|
*
|
||
|
|
* This source code is licensed under the MIT license found in the
|
||
|
|
* LICENSE file in the root directory of this source tree.
|
||
|
|
*)
|
||
|
|
|
||
|
|
(* Basic HOL initialisation *)
|
||
|
|
|
||
|
|
open HolKernel boolLib bossLib Parse;
|
||
|
|
local open wordsLib intLib stringLib integer_wordLib finite_mapLib alistLib
|
||
|
|
in end;
|
||
|
|
|
||
|
|
new_theory "settings";
|
||
|
|
|
||
|
|
(* Reduce HOL's ancient obsession with ALL_CAPS *)
|
||
|
|
overload_on ("map", ``MAP``);
|
||
|
|
overload_on ("sum", ``SUM : num list -> num``);
|
||
|
|
overload_on ("flookup", ``FLOOKUP``);
|
||
|
|
overload_on ("length", ``LENGTH``);
|
||
|
|
overload_on ("Some", ``SOME``);
|
||
|
|
overload_on ("None", ``NONE``);
|
||
|
|
overload_on ("snd", ``SND``);
|
||
|
|
overload_on ("fst", ``FST``);
|
||
|
|
overload_on ("zip", ``ZIP``);
|
||
|
|
overload_on ("el", ``EL``);
|
||
|
|
overload_on ("count_list", ``COUNT_LIST``);
|
||
|
|
overload_on ("Suc", ``SUC``);
|
||
|
|
overload_on ("flat", ``FLAT``);
|
||
|
|
overload_on ("take", ``TAKE``);
|
||
|
|
overload_on ("drop", ``DROP``);
|
||
|
|
overload_on ("replicate", ``REPLICATE``);
|
||
|
|
overload_on ("every", ``EVERY``);
|
||
|
|
overload_on ("exists", ``EXISTS``);
|
||
|
|
overload_on ("list_rel", ``LIST_REL``);
|
||
|
|
overload_on ("reverse", ``REVERSE``);
|
||
|
|
overload_on ("log", ``LOG``);
|
||
|
|
overload_on ("option_map", ``OPTION_MAP``);
|
||
|
|
overload_on ("option_join", ``OPTION_JOIN``);
|
||
|
|
overload_on ("min", ``MIN``);
|
||
|
|
overload_on ("list_update", ``LUPDATE``);
|
||
|
|
|
||
|
|
export_theory ();
|