Formalising Bitonic Sort in Type Theory -- A Semi-reflexive Tactic for (Sub-)Equational