λ(nix : ../NixPrelude.dhall) →
λ(a : Type) →
λ(b : Type) →
λ(f : a → Optional b) →
λ(o : Optional a) →
  let map = ./map.dhall nix

  let concat = ./concat.dhall nix

  in  concat b (map a (Optional b) f o)