https://github.com/EasyCrypt/easycrypt
Revision ea70757304083b2ff7d9af64d3499bc7c0256716 authored by Benjamin Gregoire on 23 June 2014, 14:27:55 UTC, committed by Benjamin Gregoire on 23 June 2014, 14:28:50 UTC
1 parent 2aaca80
Raw File
Tip revision: ea70757304083b2ff7d9af64d3499bc7c0256716 authored by Benjamin Gregoire on 23 June 2014, 14:27:55 UTC
Fixing part of the bug 17029.
Tip revision: ea70757
ecBool.ml

(* Bool.andb *)
let andb = Pervasives.(&&)
  
(* Bool.orb *)
let orb = Pervasives.(||)
  
(* Bool.^^ *)
let cfcf (x:bool) (y:bool) : bool = 
  Obj.magic ((Obj.magic x) lxor (Obj.magic y))
  
(* Bool.notb *)
let notb = Pervasives.not
  
(* Bool.implb *)
let implb = EcPervasive.eqgt
  
(* Bool.Dbool *)
module Dbool = struct
  
  (* Bool.Dbool.dbool *)
  let dbool : bool EcPervasive.distr =
     fun _ -> Random.bool ()

end
back to top