mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 18:21:47 +03:00
19 lines
314 B
Idris
19 lines
314 B
Idris
|
data Foo : Type where
|
||
|
|
|||An A
|
||
|
|
A ,
|
||
|
|
||| Just a B
|
||
|
|
B : Foo
|
||
|
|
|
||
|
|
|
||
|
|
public export
|
||
|
|
foo1, foo2 : Foo
|
||
|
|
foo1 = A
|
||
|
|
foo2 = LocalB
|
||
|
|
where
|
||
|
|
LocalB, LocalA : Foo
|
||
|
|
LocalB = B
|
||
|
|
LocalA = let NestedLocalA, NestedLocalB : Foo
|
||
|
|
NestedLocalA = A
|
||
|
|
NestedLocalB = B
|
||
|
|
in NestedLocalA
|