∀b,a:Top.  (is-list(<a, b>) ~ is-list(snd(<a, b>)))
{ (UnivCD THENA Auto) }
1. b : Top@i
2. a : Top@i
⊢ is-list(<a, b>) ~ is-list(snd(<a, b>))