Commit bbcaf1ba authored by Francois Bobot's avatar Francois Bobot

ffalse ttrue in util.ml

parent 66cfe43d
......@@ -17,14 +17,12 @@
(* *)
(**************************************************************************)
open Util
open Ident
open Term
open Decl
open Task
let ttrue _ = true
let ffalse _ = false
type env = { fs : (vsymbol list * term) Mls.t;
ps : (vsymbol list * fmla) Mls.t}
......
......@@ -58,6 +58,10 @@ exception FoldSkip
let all_fn pr _ t = pr t || raise FoldSkip
let any_fn pr _ t = pr t && raise FoldSkip
(* constant boolean function *)
let ttrue _ = true
let ffalse _ = false
(* Set and Map on strings *)
module Sstr = Set.Make(String)
......
......@@ -47,6 +47,11 @@ exception FoldSkip
val all_fn : ('a -> bool) -> 'b -> 'a -> bool
val any_fn : ('a -> bool) -> 'b -> 'a -> bool
val ffalse : 'a -> bool
(** [ffalse] constant function [false] *)
val ttrue : 'a -> bool
(** [ttrue] constant function [true] *)
(* Set and Map on strings *)
module Sstr : Set.S with type elt = string
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment