fact: Fixpoint eval n m (x: X n m): Classes.X (typ n) (typ m) := match x with | dot _ _ _ x y => eval x * eval y | one _ => 1 | plus _ _ x y => eval x + eval y | zero _ _ => 0 | star _ x => eval x # | var i => unpack (val i) end.
imports: ATBR(Common Classes) Coq(FMapPositive) Coq(Eqdep)