fact: Definition liftRz (f : rNat -> rZ) (a : rZ) := match a with | rZPlus a' => f a' | rZMinus a' => rZComp (f a') end.
imports: Stalmarck(sTactic) Coq(Relation_Definitions) Coq(ZArith) Coq(Inverse_Image) Coq(Inclusion) Coq(Wf_nat) Coq(List)