fact: Record dcpo : Type := mk_dcpo {tdcpo:>ord; dlub: (natO -m> tdcpo) -> tdcpo; le_dlub : forall (f : natO -m> tdcpo) (n:nat), f n <= dlub f; dlub_le : forall (f : natO -m> tdcpo) (x:tdcpo), (forall n, f n <= x) -> dlub f <= x}.