∀[x:dl-Obj()]. dl-obj-prog(x) ∈ Prog supposing dl-kind(x) = "prog" ∈ Atom{ (Intros THEN Unhide) }1. x : dl-Obj()2. dl-kind(x) = "prog" ∈ Atom⊢ dl-obj-prog(x) ∈ Prog