* Seal the representation of states

[tatoo.git] / src / stateSet.ml

diff --git a/src/stateSet.ml b/src/stateSet.ml
index 47ad460..c55ff6e 100644 (file)
--- a/src/stateSet.ml
+++ b/src/stateSet.ml
@@ -15,7 +15,7 @@
 
 open Format
 
-include Ptset.Make (Hcons.PosInt)
+include Ptset.Make (State)
 
 let print ppf s =
   fprintf ppf "{ %a }"