fact: Fixpoint Nrel (S1 : State) (a : rNat) (L1 : list rNat) {struct L1} : nat := match L1 with | nil => 0 | b :: L2 => oneStateAll S1 a b + Nrel S1 a L2 end.
imports: Stalmarck(state) Coq(Arith) Stalmarck(stateDec) Coq(Inverse_Image) Coq(Compare) Coq(Relation_Definitions)