You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

35 lines
960 B
OCaml

(****************************************************)
(* *)
(* Heptagon/BZR *)
(* *)
(* Author : Gwenaël Delaval *)
(* Organization : INRIA Rennes, VerTeCs *)
(* *)
(****************************************************)
(*
Translate enumerated types (state variables) into boolean
type t = A | B | C | D
A --> 00
B --> 01
C --> 10
D --> 11
x : t --> x1,x2 : bool
(e when A(x))
-->
(e when False(x1)) when False(x2)
merge x (A -> e0) (B -> e1) (C -> e2) (D -> e3)
-->
merge x1 (False -> merge x2 (False -> e0) (True -> e1))
(True -> merge x2 (False -> e2) (True -> e3))
*)
(* $Id: boolean.mli 74 2009-03-11 10:21:25Z delaval $ *)
val program : Heptagon.program -> Heptagon.program