ftree : Type → Type → Type ftree : Type → Type → Type