∀b,a:Top.  (right-endpoint([a, b]) ~ b)
{ (UnivCD THENA Auto) }
1. b : Top@i
2. a : Top@i
⊢ right-endpoint([a, b]) ~ b