fact: Fixpoint datDepth (A : Set)(t : DistApproxTree A) : nat := match t with | dat_leaf o => O | dat_internal t1 t2 => S (max (datDepth t1) (datDepth t2)) end.
imports: FCF.Comp FCF.DetSem FCF.DistSem FCF.Rat Arith FCF.StdNat FCF.Fold FCF.Limit Permutation ZifyNat