heptagon/examples/MC_memalloc/verif.ept
2011-09-09 16:31:41 +02:00

6 lines
145 B
Plaintext

(* This node implements the "implies" logical operator (not(A) or B). *)
fun implies(a, b : bool) returns (c : bool)
let
c = (not a) or b;
tel