pub fn Pred<A: Term>(a: Value<A>) -> Value<Pred<A>>where A::Type: ConstOps + Default + CheckedAdd + One + CheckedSub,