Raw decision-TSP certificate checker
namespace CLRS.Chapter34Total Boolean checker for an ordered decision-TSP tour certificate.
def tspVerifier (certificate input : List TSPSym) : Bool :=
match decodeTSPData input, decodeTSPCertificate certificate with
| some data, some vertices =>
decide (data.WellFormed ∧
data.toInstance.ListRepresentsTour vertices)
| _, _ => falseend CLRS.Chapter34