Formalization and extraction of a decision procedure for beta-eta equality of simply typed lambda calculus in Coq