fact: Definition apply_unop (t r : Typ.type) (op : interp_t t -> interp_t r) (tv:bval) := let (t', v) := tv in match Typ.cast t' t with | Typ.Cast k => Bval r (op (k _ v)) | _ => bvtrue end.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList