cv_trans_pre : thm -> thm
> cv_trans_pre listTheory.HD; Finished translating HD, stored in cv_HD_thm WARNING: definition of cv_HD has a precondition. You can set up the precondition proof as follows: Theorem HD_pre[cv_pre]: ∀v. HD_pre v Proof ho_match_mp_tac HD_ind (* for example *) ... QED val it = ⊢ ∀v. HD_pre v ⇔ (∃t h. v = h::t) ∧ v ≠ []: thm