summaryrefslogtreecommitdiff
path: root/tests/lean/PoloniusList.lean
blob: c657237f476724fa9d14cf015c20627497c6b0c4 (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
29
30
31
32
33
34
35
-- THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS
-- [polonius_list]
import Base
open Primitives

namespace polonius_list

/- [polonius_list::List]
   Source: 'src/polonius_list.rs', lines 3:0-3:16 -/
inductive List (T : Type) :=
| Cons : T  List T  List T
| Nil : List T

/- [polonius_list::get_list_at_x]:
   Source: 'src/polonius_list.rs', lines 13:0-13:76 -/
divergent def get_list_at_x
  (ls : List U32) (x : U32) :
  Result ((List U32) × (List U32  Result (List U32)))
  :=
  match ls with
  | List.Cons hd tl =>
    if hd = x
    then Result.ret (List.Cons hd tl, Result.ret)
    else
      do
      let (l, get_list_at_x_back)  get_list_at_x tl x
      let back :=
        fun ret =>
          do
          let tl1  get_list_at_x_back ret
          Result.ret (List.Cons hd tl1)
      Result.ret (l, back)
  | List.Nil => Result.ret (List.Nil, Result.ret)

end polonius_list