feat: minor improvements for residue maps (Nemocas#1563)

- Some types in Nemo only do lift properly
- Sanity check for image function

src/generic/Residue.jl

@@ -71,12 +71,13 @@ domain(f::EuclideanRingResidueMap) = f.domain
 codomain(f::EuclideanRingResidueMap) = f.codomain
 
 function image(f::EuclideanRingResidueMap, a)
+  parent(a) !== domain(f) && error("Not an element of the domain")
   return codomain(f)(a)
 end
 
 (f::EuclideanRingResidueMap)(a) = image(f, a)
 
 function preimage(f::EuclideanRingResidueMap, a)
   parent(a) != codomain(f) && error("Not an element of the codomain")
-  return data(a)
+  return lift(a)
 end