fact: Definition subenv e1 e2 := [&& esccs e1 \subset esccs e2, [forall x, (num e1 x < infty) ==> (num e2 x == num e1 x)] & [forall x, (num e2 x < sn e1) ==> (num e1 x < sn e1)]].
imports: mathcomp(all_ssreflect) bigmin extra