Definition way_below_upper_scott_open_set (CX : continuous_dcpo_struct X) (x : X) : scott_open_set X. Proof. use make_scott_open_set. - exact (way_below_upper_set x). - exact (upper_set_is_scott_open CX x). Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.DCPOs.Core.DirectedSets. Require Import UniMath.OrderTheory.DCPOs.Core.Basics. Require Import UniMath.OrderTheory.DCPOs.Core.WayBelow. Require Import UniMath.OrderTheory.DCPOs.Basis.Continuous.