fact: Fixpoint e_level n m (x: expr n m): level := match x with | e_zer _ _ => BOT | e_top _ _ => TOP | e_one _ => MIN | e_pls _ _ x y => CUP + e_level x + e_level y | e_cap _ _ x y => CAP + e_level x + e_level y | e_neg _ _ x => BL + e_level x | e_dot _ _ _ x y => e_level x + e_level y | e_itr _ x => STR + e_level x | e_str _ x => STR + e_level x | e_cnv _ _ x => CNV + e_level x | e_ldv _ _ _ x y | e_rdv _ _ _ x y => DIV + e_level x + e_level y | e_var a => MIN end%level.
imports: positives comparisons Eqdep monoid