A forward internal calculus for model generation in S4. (29th March 2021)