Simple shallow embedding of a HOL logic, LCF style in coq