fact: Definition check_hatom h1 h2 := foldi (fun _ cont h1 h2 => (h1 =? h2) || check_atom_aux cont (t_atom.[h1]) (t_atom.[h2])) 0 (PArray.length t_atom) (fun h1 h2 => false) h1 h2.
imports: List PArray Bool Int63 ZMicromega ZArith Misc State SMT_terms BVList