∀as,a,P:Top.  (P*([a / as]) ~ fst(P(a))*(as))
{ (UnivCD THENA Auto) }
1. as : Top@i
2. a : Top@i
3. P : Top@i
⊢ P*([a / as]) ~ fst(P(a))*(as)