9 lines
228 B
Text
9 lines
228 B
Text
|
λ(nix : ../NixPrelude.dhall) →
|
||
|
|
let fold = ./fold.dhall nix
|
||
|
|
|
||
|
|
let length
|
||
|
|
: ∀(a : Type) → Optional a → Natural
|
||
|
|
= λ(a : Type) → λ(xs : Optional a) → fold a xs Natural (λ(_ : a) → 1) 0
|
||
|
|
|
||
|
|
in length
|