Temporarily fixed the universe of state in ISTATE to avoid the 'being…

… polymorphic in 2 universes' problem with the lax typechecker.

examples/preorders/IST.fst

@@ -28,7 +28,8 @@ let ist_wp   (state:Type) (a:Type) = ist_post state a -> Tot (ist_pre state)
 
 (* A WP-style preorder-indexed state monad. *)
 
-new_effect  ISTATE (state:Type) (rel:relation state{preorder rel}) = STATE_h state
+new_effect  ISTATE (state:Type0) (rel:relation state{preorder rel}) = STATE_h state //typechecks with --lax flag on
+//new_effect  ISTATE (state:Type) (rel:relation state{preorder rel}) = STATE_h state //does not typecheck with --lax flag on
 
 
 (* Currently not possible, but at this point one would like to show that