fact: Definition check_hform h1 h2 := foldi (fun _ cont h1 h2 => (h1 =? h2) || check_form_aux cont (get_form h1) (get_form h2)) 0 (PArray.length t_form) (fun h1 h2 => false) h1 h2.
imports: List PArray Bool Int63 ZMicromega Misc State SMT_terms