∀[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