Source file `phys.ml`

1
2
3
4
5
6
let opt_equal a b = Option.equal ( == ) a b

let opt_holds v = function
  | Some x -> x == v
  | None -> false
;;