https://github.com/EasyCrypt/easycrypt
Revision 607a077c189227020dc10e764154006a22904c39 authored by Benjamin Gregoire on 05 June 2014, 11:32:26 UTC, committed by Benjamin Gregoire on 05 June 2014, 11:32:26 UTC
1 parent bbfad45
Raw File
Tip revision: 607a077c189227020dc10e764154006a22904c39 authored by Benjamin Gregoire on 05 June 2014, 11:32:26 UTC
Fixing bug in fieldeq.
Tip revision: 607a077
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