fact: Definition domicom {v : wfs} {w : wfs} (a : wfs_wf_uord v w) : (λ y : uset w, ∏ x : uset v, uord w (pr1 a x) y) (pr1 (pr2 (pr2 a))) := pr2 (pr2 (pr2 a)).
imports: UniMath.Foundations.All UniMath.Tactics.EnsureStructuredProofs