By solving, I mean something like
Solve[Sys, D[Through[Bc[t]], t]]
As for "As you can see in my code,..." actually, no I couldn't see. I didn't try. Do you really expect someone to closely analyze so much code and the 10000 equations you said it produced?