(*Generated by Lem from function_extra.lem.*)


open Lem_maybe
open Lem_bool
open Lem_basic_classes
open Lem_num
open Lem_function

(* ----------------------- *)
(* getting a unique value  *)
(* ----------------------- *)

(*val THE : forall 'a. ('a -> bool) -> maybe 'a*)

