An implementation of effective homotopy of fibrations. (September 2019)