fix(init/data/nat/lemmas): generalize nat.iterate to (Sort u)

This commit is contained in:
Mario Carneiro 2018-01-05 10:52:58 -05:00 committed by Leonardo de Moura
parent 6635f6c8c1
commit 147436bfb8

View file

@ -874,7 +874,7 @@ begin
apply le_div_iff_mul_le _ _ Hk
end
def iterate {α : Type} (op : αα) : αα
def iterate {α : Sort u} (op : αα) : αα
| 0 a := a
| (succ k) a := iterate k (op a)