summaryrefslogtreecommitdiff
path: root/tests/lean/InfiniteLoop.lean
blob: b5986ed8c21e60e9aa610d95a4936e536db694a9 (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
26
27
28
-- THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS
-- [infinite_loop]
import Base
open Primitives
set_option linter.dupNamespace false
set_option linter.hashCommand false
set_option linter.unusedVariables false

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 -/
@[reducible] def foo : Result Unit :=
               foo_loop

end infinite_loop