lean4-htt/tests/lean/run/4947.lean
2024-08-12 00:20:29 +00:00

6 lines
177 B
Text

universe u
class G (A : outParam Nat) where Z : Type u
export G (Z)
abbrev f (a : Nat) : Nat := 2 ^ a
variable [G (f 0)]
example {s : Z} : s = s := by simp only [Nat.reducePow]