HOL.Predicate_Compile