fact: Fixpoint norm n m (x: expr n m): expr n m := match x with | e_zer _ _ => 0 | e_top _ _ => top | e_one _ => 1 | e_pls x y => pls' (norm x) (norm y) | e_cap x y => cap' (norm x) (norm y) | e_neg x => e_neg (norm x) | e_dot x y => dot' (norm x) (norm y) | e_ldv x y => e_ldv (norm x) (norm y) | e_rdv x y => e_rdv (norm x) (norm y) | e_itr x => itr' (norm x) | e_str x => str' (norm x) | e_cnv x => cnv' (norm x) | e_var a => e_var a end%ast.
imports: kleene syntax powerfix