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