Process the inputs.
(splitgso-process-inputs const-old const-new object-name wrld) → (mv erp filepath tunit object-ident const-new$)
Function:
(defun splitgso-process-inputs (const-old const-new object-name wrld) (declare (xargs :guard (plist-worldp wrld))) (declare (ignore const-old const-new object-name wrld)) (let ((__function__ 'splitgso-process-inputs)) (declare (ignorable __function__)) (b* (((reterr) (filepath :irrelevant) (c$::irr-transunit) (c$::irr-ident) nil)) (reterr :todo))))
Theorem:
(defthm filepathp-of-splitgso-process-inputs.filepath (b* (((mv acl2::?erp c$::?filepath ?tunit ?object-ident ?const-new$) (splitgso-process-inputs const-old const-new object-name wrld))) (filepathp filepath)) :rule-classes :rewrite)
Theorem:
(defthm transunitp-of-splitgso-process-inputs.tunit (b* (((mv acl2::?erp c$::?filepath ?tunit ?object-ident ?const-new$) (splitgso-process-inputs const-old const-new object-name wrld))) (transunitp tunit)) :rule-classes :rewrite)
Theorem:
(defthm identp-of-splitgso-process-inputs.object-ident (b* (((mv acl2::?erp c$::?filepath ?tunit ?object-ident ?const-new$) (splitgso-process-inputs const-old const-new object-name wrld))) (identp object-ident)) :rule-classes :rewrite)
Theorem:
(defthm symbolp-of-splitgso-process-inputs.const-new$ (b* (((mv acl2::?erp c$::?filepath ?tunit ?object-ident ?const-new$) (splitgso-process-inputs const-old const-new object-name wrld))) (symbolp const-new$)) :rule-classes :rewrite)