Function that returns the matrix with a column deleted
(<=> (Matrix-Less-Column ?A ?I)
(And (Matrix ?A)
(Defined (Column ?A ?I))
(Matrix ?B)
(= (Row-Dimension ?B) (Row-Dimension ?A))
(= (Column-Dimension ?B) (- (Column-Dimension ?A) 1))
(Forall (?K ?L)
(=> (Defined (Value ?B ?K ?L))
(=> (< ?L ?I)
(= (Value ?B ?K ?L) (Value ?A ?K ?L)))
(=> (>= ?L ?I)
(= (Value ?B ?K ?L) (Value ?A ?K (+ ?L 1))))))))
(Nth-Domain Matrix-Less-Column 3 Matrix) (Nth-Domain Matrix-Less-Column 1 Matrix)
(=> (= (Matrix-Less-Row-And-Column ?A ?I ?J) ?B)
(= ?B (Matrix-Less-Row (Matrix-Less-Column ?A ?J) ?I)))
(=> (= (Matrix-Less-Column ?A ?I) ?B)
(Forall (?K ?L)
(=> (Defined (Value ?B ?K ?L))
(=> (< ?L ?I) (= (Value ?B ?K ?L) (Value ?A ?K ?L)))
(=> (>= ?L ?I)
(= (Value ?B ?K ?L) (Value ?A ?K (+ ?L 1)))))))
(=> (= (Matrix-Less-Column ?A ?I) ?B)
(= (Column-Dimension ?B) (- (Column-Dimension ?A) 1)))
(=> (= (Matrix-Less-Column ?A ?I) ?B)
(= (Row-Dimension ?B) (Row-Dimension ?A)))
(=> (= (Matrix-Less-Column ?A ?I) ?B) (Matrix ?B))
(=> (= (Matrix-Less-Column ?A ?I) ?B) (Defined (Column ?A ?I)))
(=> (= (Matrix-Less-Column ?A ?I) ?B) (Matrix ?A))