feat(kernel/level): improve is_geq procedure for universe levels
feat(kernel/level): improve is_geq procedure for universe levels

Now, it also returns true for

          (succ^k1 a)  =?=  k2

where k1 >= k2

sp3ctum/lean,fgdorais/lean,avigad/lean,javra/lean,fpvandoorn/lean2,c-cube/lean,rlewis1988/lean,avigad/lean,johoelzl/lean,levnach/lean,fgdorais/lean,johoelzl/lean,eigengrau/lean,soonhokong/lean-windows,sp3ctum/lean,fpvandoorn/lean2,soonhokong/lean-windows,levnach/lean,fgdorais/lean,soonhokong/lean-osx,leanprover/lean,eigengrau/lean,dselsam/lean,leodemoura/lean,fgdorais/lean,fpvandoorn/lean2,soonhokong/lean,htzh/lean,fpvandoorn/lean2,fpvandoorn/lean,soonhokong/lean-osx,avigad/lean,javra/lean,leanprover/lean,leanprover/lean,dselsam/lean,johoelzl/lean,fpvandoorn/lean,leodemoura/lean,eigengrau/lean,javra/lean,leanprover-community/lean,dselsam/lean,soonhokong/lean,leodemoura/lean,soonhokong/lean,digama0/lean,UlrikBuchholtz/lean,soonhokong/lean,dselsam/lean,johoelzl/lean,fpvandoorn/lean,leodemoura/lean,fpvandoorn/lean,c-cube/lean,leanprover-community/lean,avigad/lean,rlewis1988/lean,c-cube/lean,leanprover/lean,digama0/lean,Kha/lean,sp3ctum/lean,leanprover/lean,avigad/lean,fpvandoorn/lean2,htzh/lean,fgdorais/lean,soonhokong/lean,leanprover/lean,eigengrau/lean,rlewis1988/lean,sp3ctum/lean,htzh/lean,rlewis1988/lean,levnach/lean,soonhokong/lean-windows,leanprover-community/lean,Kha/lean,sp3ctum/lean,Kha/lean,fpvandoorn/lean,soonhokong/lean-osx,leodemoura/lean,leanprover-community/lean,rlewis1988/lean,Kha/lean,dselsam/lean,levnach/lean,johoelzl/lean,rlewis1988/lean,avigad/lean,leanprover-community/lean,c-cube/lean,levnach/lean,digama0/lean,soonhokong/lean-windows,UlrikBuchholtz/lean,leanprover-community/lean,digama0/lean,Kha/lean,soonhokong/lean-windows,fpvandoorn/lean,c-cube/lean,UlrikBuchholtz/lean,UlrikBuchholtz/lean,johoelzl/lean,dselsam/lean,digama0/lean,Kha/lean,javra/lean,htzh/lean,fgdorais/lean,UlrikBuchholtz/lean,soonhokong/lean-osx,digama0/lean,htzh/lean,leodemoura/lean,soonhokong/lean-osx,eigengrau/lean,javra/lean