fact: Fixpoint h2o (h:Hydra) : T1 := match h with head => zero | node hs => (sort (h2ol hs)) end with h2ol (hs:Hydrae) : T1 := match hs with single h => (cons (h2o h) 0 zero) | hcons h hs' => (cons (h2o h) 0 (h2ol hs')) end.
imports: Arith Omega List EPSILON0 MSE0