fact: Definition EvalUnaryNumOp (op : UnaryIntOp) (n : num) : num := match n with | I i => I (EvalUnaryIntOp op i ) | B b => B (i2b $ EvalUnaryIntOp op (b2i b)) | Sh s => Sh(i2s $ EvalUnaryIntOp op (s2i s)) end.
imports: Coq(List) Coq(ListSet) Coq(FSetInterface) Coq(Bool) Coq(ZArith) Coq(Relation_Operators) JML(ListHelpers)