summaryrefslogtreecommitdiff
path: root/tests/lean/InfiniteLoop.lean
blob: 9eb8e22c1e1724abecb0984c0a3737884723927f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
-- THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS
-- [infinite_loop]
import Base
open Primitives

namespace infinite_loop

/- [infinite_loop::bar]:
   Source: 'tests/src/infinite-loop.rs', lines 4:0-4:8 -/
def bar : Result Unit :=
  Result.ok ()

/- [infinite_loop::foo]: loop 0:
   Source: 'tests/src/infinite-loop.rs', lines 6:0-10:1 -/
divergent def foo_loop : Result Unit :=
  do
  let _  bar
  foo_loop

/- [infinite_loop::foo]:
   Source: 'tests/src/infinite-loop.rs', lines 6:0-6:8 -/
def foo : Result Unit :=
  foo_loop

end infinite_loop