fact: Definition interp_top o := match o with | TO_store ti te => let iti := Typ.interp_compdec_aux t_i ti in let ite := Typ.interp_compdec_aux t_i te in let cti := projT2 iti in let cte := projT2 ite in let tti := type_compdec cti in let tte := type_compdec cte in apply_terop (Typ.TFArray ti te) ti te (Typ.TFArray ti te) (@FArray.store tti tte (@EqbToDecType _ (@eqbtype_of_compdec tti cti)) (@ord_of_compdec tti cti) (@comp_of_compdec tti cti) (@ord_of_compdec tte cte) (@comp_of_compdec tte cte) (@inh_of_compdec tte cte)) end.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList