Generic fixing function for typed list elements.
Theorem:
(defthm element-p-of-element-fix (implies (element-p (element-example)) (element-p (element-fix x))))
Theorem:
(defthm element-fix-when-element-p (implies (element-p x) (equal (element-fix x) x)))
Theorem:
(defthm element-fix-idempotent (equal (element-fix (element-fix x)) (element-fix x)))