mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-11-28 02:23:44 +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
|