(* relativization *)

(* Specifications: *)
Axiom rel_inj_l : forall a x y, a <> bot -> rel a x = rel a y -> x = y.
Axiom rel_inj_r : forall a b x, x <> bot -> rel a x = rel b x -> a = b.
Axiom rel_assoc : forall x y z, rel x (rel y z) = rel (rel x y) z.
Axiom rel_preserves_glb : forall a x y, rel a (glb x y) = glb (rel a x) (rel a y).
Axiom rel_preserves_lub : forall a x y, rel a (lub x y) = lub (rel a x) (rel a y).
Axiom rel_bot1 : forall a, rel a bot = bot.
Axiom rel_bot2 : forall x, rel bot x = bot.
Axiom rel_top1 : forall a, rel a top = a.
Axiom rel_top2 : forall x, rel top x = x.
Parameter unrel: t -> t -> t.