fact: Fixpoint compute_interp ty acc l := match l with | nil => Some acc | a::q => let (ta,va) := interp_hatom a in match Typ.cast ta ty with | Typ.Cast ka => compute_interp ty ((ka _ va)::acc) q | _ => None end end.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList