λ(nix : ../NixPrelude.dhall) →
λ(a : Type) →
λ(x : Optional (Optional a)) →
  let identity = ../Function/identity.dhall

  let fold = ./fold.dhall nix

  in  fold (Optional a) x (Optional a) (identity (Optional a)) (None a)