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