use super::common::{SmtCheckResult, SmtChecker, SmtObligation};
use crate::verify::{contract::Property, helpers::Checkpoint, verifier::ForwardVisitResult};
pub(crate) fn check<'tcx>(
checker: &SmtChecker<'tcx>,
checkpoint: &Checkpoint<'tcx>,
property: &Property<'tcx>,
forward: &ForwardVisitResult<'tcx>,
) -> SmtCheckResult {
let Some(target) = checker.property_target(checkpoint, property) else {
return SmtCheckResult::unknown("Allocated target could not be resolved");
};
if checker.property_required_ty(checkpoint, property).is_none()
&& checker.property_len_expr(checkpoint, property).is_none()
{
if checker.is_len_carrying_place_for_caller(checkpoint.caller, &target) {
return SmtCheckResult::proved(
"allocation proved: safe slice/reference target carries one live allocation object",
);
}
return SmtCheckResult::unknown(
"Allocated target has no type/count arguments and is not a supported slice/reference",
);
}
let Some(required_ty) = checker.property_required_ty(checkpoint, property) else {
return SmtCheckResult::unknown("Allocated type could not be resolved");
};
let Some(elements_expr) = checker.property_len_expr(checkpoint, property) else {
return SmtCheckResult::unknown("Allocated element-count argument could not be resolved");
};
let Some(elements) = checker.contract_expr_to_smt_term(checkpoint.caller, &elements_expr)
else {
return SmtCheckResult::unknown(
"Allocated element-count argument could not be lowered to SMT",
);
};
checker.prove_obligation(
checkpoint,
forward,
SmtObligation::Allocated {
place: target,
ty_name: format!("{required_ty:?}"),
elements,
},
)
}