Determine a splittable statement's effect on a single lvalue.
(vl-edgesplit-stmt-for-lvalue x lvalue) → stmt
Theorem:
(defthm return-type-of-vl-edgesplit-stmt-for-lvalue.stmt (implies (and (force (if (vl-stmt-p x) (vl-edgesplitstmt-p x) 'nil)) (force (stringp lvalue))) (b* ((?stmt (vl-edgesplit-stmt-for-lvalue x lvalue))) (vl-stmt-p stmt))) :rule-classes :rewrite)
Theorem:
(defthm return-type-of-vl-edgesplit-stmtlist-for-lvalue.stmts (implies (and (force (if (vl-stmtlist-p x) (vl-edgesplitstmtlist-p x) 'nil)) (force (stringp lvalue))) (b* ((?stmts (vl-edgesplit-stmtlist-for-lvalue x lvalue))) (vl-stmtlist-p stmts))) :rule-classes :rewrite)