∀[a,b:Base]. ∀[n:ℕ].  a ≤n b supposing a ~n b
{ Intros }
1. [a] : Base
2. [b] : Base
3. [n] : ℕ
4. [%] : a ~n b
⊢ a ≤n b