lean4-htt/tests/lean/run/inlineLoop.lean
Leonardo de Moura d494756d00 fix: inline loop
2021-02-04 17:17:51 -08:00

28 lines
396 B
Text
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

namespace Test1
mutual
partial def f (a : Nat) : Nat := g a
partial def g (a : Nat) : Nat := f a
end
end Test1
namespace Test2
mutual
@[inline]
partial def f (a : Nat) : Nat := g a + g a + g a + g a
@[inline]
partial def g (a : Nat) : Nat := f a + f a + f a + f a
end
end Test2
namespace Test3
partial def unsafeFn1 {m} [Monad m] (a : α) : m α :=
unsafeFn1 a
end Test3