Goal:
    b : byte
  ============================
   (match b with
    | "000"%byte =>
        fun y : byte => match y with
                        | "000"%byte => True
                        | _ => False
                        end
    | "001"%byte =>
        fun y : byte => match y with
                        | "001"%byte => True
                        | _ => False
                        end
    | "002"%byte =>
        fun y : byte => match y with
                        | "002"%byte => True
                        | _ => False
                        end
    | "003"%byte =>
        fun y : byte => match y with
                        | "003"%byte => True
                        | _ => False
                        end
    | "004"%byte =>
        fun y : byte => match y with
                        | "004"%byte => True
                        | _ => False
                        end
    | "005"%byte =>
        fun y : byte => match y with
                        | "005"%byte => True
                        | _ => False
                        end
    | "006"%byte =>
        fun y : byte => match y with
                        | "006"%byte => True
                        | _ => False
                        end
    | "007"%byte =>
        fun y : byte => match y with
                        | "007"%byte => True
                        | _ => False
                        end
    | "008"%byte =>
        fun y : byte => match y with
                        | "008"%byte => True
                        | _ => False
                        end
    | "009"%byte =>
        fun y : byte => match y with
                        | "009"%byte => True
                        | _ => False
                        end
    | "010"%byte =>
        fun y : byte => match y with
                        | "010"%byte => True
                        | _ => False
                        end
    | "011"%byte =>
        fun y : byte => match y with
                        | "011"%byte => True
                        | _ => False
                        end
    | "012"%byte =>
        fun y : byte => match y with
                        | "012"%byte => True
                        | _ => False
                        end
    | "013"%byte =>
        fun y : byte => match y with
                        | "013"%byte => True
                        | _ => False
                        end
    | "014"%byte =>
        fun y : byte => match y with
                        | "014"%byte => True
                        | _ => False
                        end
    | "015"%byte =>
        fun y : byte => match y with
                        | "015"%byte => True
                        | _ => False
                        end
    | "016"%byte =>
        fun y : byte => match y with
                        | "016"%byte => True
                        | _ => False
                        end
    | "017"%byte =>
        fun y : byte => match y with
                        | "017"%byte => True
                        | _ => False
                        end
    | "018"%byte =>
        fun y : byte => match y with
                        | "018"%byte => True
                        | _ => False
                        end
    | "019"%byte =>
        fun y : byte => match y with
                        | "019"%byte => True
                        | _ => False
                        end
    | "020"%byte =>
        fun y : byte => match y with
                        | "020"%byte => True
                        | _ => False
                        end
    | "021"%byte =>
        fun y : byte => match y with
                        | "021"%byte => True
                        | _ => False
                        end
    | "022"%byte =>
        fun y : byte => match y with
                        | "022"%byte => True
                        | _ => False
                        end
    | "023"%byte =>
        fun y : byte => match y with
                        | "023"%byte => True
                        | _ => False
                        end
    | "024"%byte =>
        fun y : byte => match y with
                        | "024"%byte => True
                        | _ => False
                        end
    | "025"%byte =>
        fun y : byte => match y with
                        | "025"%byte => True
                        | _ => False
                        end
    | "026"%byte =>
        fun y : byte => match y with
                        | "026"%byte => True
                        | _ => False
                        end
    | "027"%byte =>
        fun y : byte => match y with
                        | "027"%byte => True
                        | _ => False
                        end
    | "028"%byte =>
        fun y : byte => match y with
                        | "028"%byte => True
                        | _ => False
                        end
    | "029"%byte =>
        fun y : byte => match y with
                        | "029"%byte => True
                        | _ => False
                        end
    | "030"%byte =>
        fun y : byte => match y with
                        | "030"%byte => True
                        | _ => False
                        end
    | "031"%byte =>
        fun y : byte => match y with
                        | "031"%byte => True
                        | _ => False
                        end
    | " "%byte =>
        fun y : byte => match y with
                        | " "%byte => True
                        | _ => False
                        end
    | "!"%byte =>
        fun y : byte => match y with
                        | "!"%byte => True
                        | _ => False
                        end
    | """"%byte =>
        fun y : byte => match y with
                        | """"%byte => True
                        | _ => False
                        end
    | "#"%byte =>
        fun y : byte => match y with
                        | "#"%byte => True
                        | _ => False
                        end
    | "$"%byte =>
        fun y : byte => match y with
                        | "$"%byte => True
                        | _ => False
                        end
    | "%"%byte =>
        fun y : byte => match y with
                        | "%"%byte => True
                        | _ => False
                        end
    | "&"%byte =>
        fun y : byte => match y with
                        | "&"%byte => True
                        | _ => False
                        end
    | "'"%byte =>
        fun y : byte => match y with
                        | "'"%byte => True
                        | _ => False
                        end
    | "("%byte =>
        fun y : byte => match y with
                        | "("%byte => True
                        | _ => False
                        end
    | ")"%byte =>
        fun y : byte => match y with
                        | ")"%byte => True
                        | _ => False
                        end
    | "*"%byte =>
        fun y : byte => match y with
                        | "*"%byte => True
                        | _ => False
                        end
    | "+"%byte =>
        fun y : byte => match y with
                        | "+"%byte => True
                        | _ => False
                        end
    | ","%byte =>
        fun y : byte => match y with
                        | ","%byte => True
                        | _ => False
                        end
    | "-"%byte =>
        fun y : byte => match y with
                        | "-"%byte => True
                        | _ => False
                        end
    | "."%byte =>
        fun y : byte => match y with
                        | "."%byte => True
                        | _ => False
                        end
    | "/"%byte =>
        fun y : byte => match y with
                        | "/"%byte => True
                        | _ => False
                        end
    | "0"%byte =>
        fun y : byte => match y with
                        | "0"%byte => True
                        | _ => False
                        end
    | "1"%byte =>
        fun y : byte => match y with
                        | "1"%byte => True
                        | _ => False
                        end
    | "2"%byte =>
        fun y : byte => match y with
                        | "2"%byte => True
                        | _ => False
                        end
    | "3"%byte =>
        fun y : byte => match y with
                        | "3"%byte => True
                        | _ => False
                        end
    | "4"%byte =>
        fun y : byte => match y with
                        | "4"%byte => True
                        | _ => False
                        end
    | "5"%byte =>
        fun y : byte => match y with
                        | "5"%byte => True
                        | _ => False
                        end
    | "6"%byte =>
        fun y : byte => match y with
                        | "6"%byte => True
                        | _ => False
                        end
    | "7"%byte =>
        fun y : byte => match y with
                        | "7"%byte => True
                        | _ => False
                        end
    | "8"%byte =>
        fun y : byte => match y with
                        | "8"%byte => True
                        | _ => False
                        end
    | "9"%byte =>
        fun y : byte => match y with
                        | "9"%byte => True
                        | _ => False
                        end
    | ":"%byte =>
        fun y : byte => match y with
                        | ":"%byte => True
                        | _ => False
                        end
    | ";"%byte =>
        fun y : byte => match y with
                        | ";"%byte => True
                        | _ => False
                        end
    | "<"%byte =>
        fun y : byte => match y with
                        | "<"%byte => True
                        | _ => False
                        end
    | "="%byte =>
        fun y : byte => match y with
                        | "="%byte => True
                        | _ => False
                        end
    | ">"%byte =>
        fun y : byte => match y with
                        | ">"%byte => True
                        | _ => False
                        end
    | "?"%byte =>
        fun y : byte => match y with
                        | "?"%byte => True
                        | _ => False
                        end
    | "@"%byte =>
        fun y : byte => match y with
                        | "@"%byte => True
                        | _ => False
                        end
    | "A"%byte =>
        fun y : byte => match y with
                        | "A"%byte => True
                        | _ => False
                        end
    | "B"%byte =>
        fun y : byte => match y with
                        | "B"%byte => True
                        | _ => False
                        end
    | "C"%byte =>
        fun y : byte => match y with
                        | "C"%byte => True
                        | _ => False
                        end
    | "D"%byte =>
        fun y : byte => match y with
                        | "D"%byte => True
                        | _ => False
                        end
    | "E"%byte =>
        fun y : byte => match y with
                        | "E"%byte => True
                        | _ => False
                        end
    | "F"%byte =>
        fun y : byte => match y with
                        | "F"%byte => True
                        | _ => False
                        end
    | "G"%byte =>
        fun y : byte => match y with
                        | "G"%byte => True
                        | _ => False
                        end
    | "H"%byte =>
        fun y : byte => match y with
                        | "H"%byte => True
                        | _ => False
                        end
    | "I"%byte =>
        fun y : byte => match y with
                        | "I"%byte => True
                        | _ => False
                        end
    | "J"%byte =>
        fun y : byte => match y with
                        | "J"%byte => True
                        | _ => False
                        end
    | "K"%byte =>
        fun y : byte => match y with
                        | "K"%byte => True
                        | _ => False
                        end
    | "L"%byte =>
        fun y : byte => match y with
                        | "L"%byte => True
                        | _ => False
                        end
    | "M"%byte =>
        fun y : byte => match y with
                        | "M"%byte => True
                        | _ => False
                        end
    | "N"%byte =>
        fun y : byte => match y with
                        | "N"%byte => True
                        | _ => False
                        end
    | "O"%byte =>
        fun y : byte => match y with
                        | "O"%byte => True
                        | _ => False
                        end
    | "P"%byte =>
        fun y : byte => match y with
                        | "P"%byte => True
                        | _ => False
                        end
    | "Q"%byte =>
        fun y : byte => match y with
                        | "Q"%byte => True
                        | _ => False
                        end
    | "R"%byte =>
        fun y : byte => match y with
                        | "R"%byte => True
                        | _ => False
                        end
    | "S"%byte =>
        fun y : byte => match y with
                        | "S"%byte => True
                        | _ => False
                        end
    | "T"%byte =>
        fun y : byte => match y with
                        | "T"%byte => True
                        | _ => False
                        end
    | "U"%byte =>
        fun y : byte => match y with
                        | "U"%byte => True
                        | _ => False
                        end
    | "V"%byte =>
        fun y : byte => match y with
                        | "V"%byte => True
                        | _ => False
                        end
    | "W"%byte =>
        fun y : byte => match y with
                        | "W"%byte => True
                        | _ => False
                        end
    | "X"%byte =>
        fun y : byte => match y with
                        | "X"%byte => True
                        | _ => False
                        end
    | "Y"%byte =>
        fun y : byte => match y with
                        | "Y"%byte => True
                        | _ => False
                        end
    | "Z"%byte =>
        fun y : byte => match y with
                        | "Z"%byte => True
                        | _ => False
                        end
    | "["%byte =>
        fun y : byte => match y with
                        | "["%byte => True
                        | _ => False
                        end
    | "\"%byte =>
        fun y : byte => match y with
                        | "\"%byte => True
                        | _ => False
                        end
    | "]"%byte =>
        fun y : byte => match y with
                        | "]"%byte => True
                        | _ => False
                        end
    | "^"%byte =>
        fun y : byte => match y with
                        | "^"%byte => True
                        | _ => False
                        end
    | "_"%byte =>
        fun y : byte => match y with
                        | "_"%byte => True
                        | _ => False
                        end
    | "`"%byte =>
        fun y : byte => match y with
                        | "`"%byte => True
                        | _ => False
                        end
    | "a"%byte =>
        fun y : byte => match y with
                        | "a"%byte => True
                        | _ => False
                        end
    | "b"%byte =>
        fun y : byte => match y with
                        | "b"%byte => True
                        | _ => False
                        end
    | "c"%byte =>
        fun y : byte => match y with
                        | "c"%byte => True
                        | _ => False
                        end
    | "d"%byte =>
        fun y : byte => match y with
                        | "d"%byte => True
                        | _ => False
                        end
    | "e"%byte =>
        fun y : byte => match y with
                        | "e"%byte => True
                        | _ => False
                        end
    | "f"%byte =>
        fun y : byte => match y with
                        | "f"%byte => True
                        | _ => False
                        end
    | "g"%byte =>
        fun y : byte => match y with
                        | "g"%byte => True
                        | _ => False
                        end
    | "h"%byte =>
        fun y : byte => match y with
                        | "h"%byte => True
                        | _ => False
                        end
    | "i"%byte =>
        fun y : byte => match y with
                        | "i"%byte => True
                        | _ => False
                        end
    | "j"%byte =>
        fun y : byte => match y with
                        | "j"%byte => True
                        | _ => False
                        end
    | "k"%byte =>
        fun y : byte => match y with
                        | "k"%byte => True
                        | _ => False
                        end
    | "l"%byte =>
        fun y : byte => match y with
                        | "l"%byte => True
                        | _ => False
                        end
    | "m"%byte =>
        fun y : byte => match y with
                        | "m"%byte => True
                        | _ => False
                        end
    | "n"%byte =>
        fun y : byte => match y with
                        | "n"%byte => True
                        | _ => False
                        end
    | "o"%byte =>
        fun y : byte => match y with
                        | "o"%byte => True
                        | _ => False
                        end
    | "p"%byte =>
        fun y : byte => match y with
                        | "p"%byte => True
                        | _ => False
                        end
    | "q"%byte =>
        fun y : byte => match y with
                        | "q"%byte => True
                        | _ => False
                        end
    | "r"%byte =>
        fun y : byte => match y with
                        | "r"%byte => True
                        | _ => False
                        end
    | "s"%byte =>
        fun y : byte => match y with
                        | "s"%byte => True
                        | _ => False
                        end
    | "t"%byte =>
        fun y : byte => match y with
                        | "t"%byte => True
                        | _ => False
                        end
    | "u"%byte =>
        fun y : byte => match y with
                        | "u"%byte => True
                        | _ => False
                        end
    | "v"%byte =>
        fun y : byte => match y with
                        | "v"%byte => True
                        | _ => False
                        end
    | "w"%byte =>
        fun y : byte => match y with
                        | "w"%byte => True
                        | _ => False
                        end
    | "x"%byte =>
        fun y : byte => match y with
                        | "x"%byte => True
                        | _ => False
                        end
    | "y"%byte =>
        fun y : byte => match y with
                        | "y"%byte => True
                        | _ => False
                        end
    | "z"%byte =>
        fun y : byte => match y with
                        | "z"%byte => True
                        | _ => False
                        end
    | "{"%byte =>
        fun y : byte => match y with
                        | "{"%byte => True
                        | _ => False
                        end
    | "|"%byte =>
        fun y : byte => match y with
                        | "|"%byte => True
                        | _ => False
                        end
    | "}"%byte =>
        fun y : byte => match y with
                        | "}"%byte => True
                        | _ => False
                        end
    | "~"%byte =>
        fun y : byte => match y with
                        | "~"%byte => True
                        | _ => False
                        end
    | "127"%byte =>
        fun y : byte => match y with
                        | "127"%byte => True
                        | _ => False
                        end
    | "128"%byte =>
        fun y : byte => match y with
                        | "128"%byte => True
                        | _ => False
                        end
    | "129"%byte =>
        fun y : byte => match y with
                        | "129"%byte => True
                        | _ => False
                        end
    | "130"%byte =>
        fun y : byte => match y with
                        | "130"%byte => True
                        | _ => False
                        end
    | "131"%byte =>
        fun y : byte => match y with
                        | "131"%byte => True
                        | _ => False
                        end
    | "132"%byte =>
        fun y : byte => match y with
                        | "132"%byte => True
                        | _ => False
                        end
    | "133"%byte =>
        fun y : byte => match y with
                        | "133"%byte => True
                        | _ => False
                        end
    | "134"%byte =>
        fun y : byte => match y with
                        | "134"%byte => True
                        | _ => False
                        end
    | "135"%byte =>
        fun y : byte => match y with
                        | "135"%byte => True
                        | _ => False
                        end
    | "136"%byte =>
        fun y : byte => match y with
                        | "136"%byte => True
                        | _ => False
                        end
    | "137"%byte =>
        fun y : byte => match y with
                        | "137"%byte => True
                        | _ => False
                        end
    | "138"%byte =>
        fun y : byte => match y with
                        | "138"%byte => True
                        | _ => False
                        end
    | "139"%byte =>
        fun y : byte => match y with
                        | "139"%byte => True
                        | _ => False
                        end
    | "140"%byte =>
        fun y : byte => match y with
                        | "140"%byte => True
                        | _ => False
                        end
    | "141"%byte =>
        fun y : byte => match y with
                        | "141"%byte => True
                        | _ => False
                        end
    | "142"%byte =>
        fun y : byte => match y with
                        | "142"%byte => True
                        | _ => False
                        end
    | "143"%byte =>
        fun y : byte => match y with
                        | "143"%byte => True
                        | _ => False
                        end
    | "144"%byte =>
        fun y : byte => match y with
                        | "144"%byte => True
                        | _ => False
                        end
    | "145"%byte =>
        fun y : byte => match y with
                        | "145"%byte => True
                        | _ => False
                        end
    | "146"%byte =>
        fun y : byte => match y with
                        | "146"%byte => True
                        | _ => False
                        end
    | "147"%byte =>
        fun y : byte => match y with
                        | "147"%byte => True
                        | _ => False
                        end
    | "148"%byte =>
        fun y : byte => match y with
                        | "148"%byte => True
                        | _ => False
                        end
    | "149"%byte =>
        fun y : byte => match y with
                        | "149"%byte => True
                        | _ => False
                        end
    | "150"%byte =>
        fun y : byte => match y with
                        | "150"%byte => True
                        | _ => False
                        end
    | "151"%byte =>
        fun y : byte => match y with
                        | "151"%byte => True
                        | _ => False
                        end
    | "152"%byte =>
        fun y : byte => match y with
                        | "152"%byte => True
                        | _ => False
                        end
    | "153"%byte =>
        fun y : byte => match y with
                        | "153"%byte => True
                        | _ => False
                        end
    | "154"%byte =>
        fun y : byte => match y with
                        | "154"%byte => True
                        | _ => False
                        end
    | "155"%byte =>
        fun y : byte => match y with
                        | "155"%byte => True
                        | _ => False
                        end
    | "156"%byte =>
        fun y : byte => match y with
                        | "156"%byte => True
                        | _ => False
                        end
    | "157"%byte =>
        fun y : byte => match y with
                        | "157"%byte => True
                        | _ => False
                        end
    | "158"%byte =>
        fun y : byte => match y with
                        | "158"%byte => True
                        | _ => False
                        end
    | "159"%byte =>
        fun y : byte => match y with
                        | "159"%byte => True
                        | _ => False
                        end
    | "160"%byte =>
        fun y : byte => match y with
                        | "160"%byte => True
                        | _ => False
                        end
    | "161"%byte =>
        fun y : byte => match y with
                        | "161"%byte => True
                        | _ => False
                        end
    | "162"%byte =>
        fun y : byte => match y with
                        | "162"%byte => True
                        | _ => False
                        end
    | "163"%byte =>
        fun y : byte => match y with
                        | "163"%byte => True
                        | _ => False
                        end
    | "164"%byte =>
        fun y : byte => match y with
                        | "164"%byte => True
                        | _ => False
                        end
    | "165"%byte =>
        fun y : byte => match y with
                        | "165"%byte => True
                        | _ => False
                        end
    | "166"%byte =>
        fun y : byte => match y with
                        | "166"%byte => True
                        | _ => False
                        end
    | "167"%byte =>
        fun y : byte => match y with
                        | "167"%byte => True
                        | _ => False
                        end
    | "168"%byte =>
        fun y : byte => match y with
                        | "168"%byte => True
                        | _ => False
                        end
    | "169"%byte =>
        fun y : byte => match y with
                        | "169"%byte => True
                        | _ => False
                        end
    | "170"%byte =>
        fun y : byte => match y with
                        | "170"%byte => True
                        | _ => False
                        end
    | "171"%byte =>
        fun y : byte => match y with
                        | "171"%byte => True
                        | _ => False
                        end
    | "172"%byte =>
        fun y : byte => match y with
                        | "172"%byte => True
                        | _ => False
                        end
    | "173"%byte =>
        fun y : byte => match y with
                        | "173"%byte => True
                        | _ => False
                        end
    | "174"%byte =>
        fun y : byte => match y with
                        | "174"%byte => True
                        | _ => False
                        end
    | "175"%byte =>
        fun y : byte => match y with
                        | "175"%byte => True
                        | _ => False
                        end
    | "176"%byte =>
        fun y : byte => match y with
                        | "176"%byte => True
                        | _ => False
                        end
    | "177"%byte =>
        fun y : byte => match y with
                        | "177"%byte => True
                        | _ => False
                        end
    | "178"%byte =>
        fun y : byte => match y with
                        | "178"%byte => True
                        | _ => False
                        end
    | "179"%byte =>
        fun y : byte => match y with
                        | "179"%byte => True
                        | _ => False
                        end
    | "180"%byte =>
        fun y : byte => match y with
                        | "180"%byte => True
                        | _ => False
                        end
    | "181"%byte =>
        fun y : byte => match y with
                        | "181"%byte => True
                        | _ => False
                        end
    | "182"%byte =>
        fun y : byte => match y with
                        | "182"%byte => True
                        | _ => False
                        end
    | "183"%byte =>
        fun y : byte => match y with
                        | "183"%byte => True
                        | _ => False
                        end
    | "184"%byte =>
        fun y : byte => match y with
                        | "184"%byte => True
                        | _ => False
                        end
    | "185"%byte =>
        fun y : byte => match y with
                        | "185"%byte => True
                        | _ => False
                        end
    | "186"%byte =>
        fun y : byte => match y with
                        | "186"%byte => True
                        | _ => False
                        end
    | "187"%byte =>
        fun y : byte => match y with
                        | "187"%byte => True
                        | _ => False
                        end
    | "188"%byte =>
        fun y : byte => match y with
                        | "188"%byte => True
                        | _ => False
                        end
    | "189"%byte =>
        fun y : byte => match y with
                        | "189"%byte => True
                        | _ => False
                        end
    | "190"%byte =>
        fun y : byte => match y with
                        | "190"%byte => True
                        | _ => False
                        end
    | "191"%byte =>
        fun y : byte => match y with
                        | "191"%byte => True
                        | _ => False
                        end
    | "192"%byte =>
        fun y : byte => match y with
                        | "192"%byte => True
                        | _ => False
                        end
    | "193"%byte =>
        fun y : byte => match y with
                        | "193"%byte => True
                        | _ => False
                        end
    | "194"%byte =>
        fun y : byte => match y with
                        | "194"%byte => True
                        | _ => False
                        end
    | "195"%byte =>
        fun y : byte => match y with
                        | "195"%byte => True
                        | _ => False
                        end
    | "196"%byte =>
        fun y : byte => match y with
                        | "196"%byte => True
                        | _ => False
                        end
    | "197"%byte =>
        fun y : byte => match y with
                        | "197"%byte => True
                        | _ => False
                        end
    | "198"%byte =>
        fun y : byte => match y with
                        | "198"%byte => True
                        | _ => False
                        end
    | "199"%byte =>
        fun y : byte => match y with
                        | "199"%byte => True
                        | _ => False
                        end
    | "200"%byte =>
        fun y : byte => match y with
                        | "200"%byte => True
                        | _ => False
                        end
    | "201"%byte =>
        fun y : byte => match y with
                        | "201"%byte => True
                        | _ => False
                        end
    | "202"%byte =>
        fun y : byte => match y with
                        | "202"%byte => True
                        | _ => False
                        end
    | "203"%byte =>
        fun y : byte => match y with
                        | "203"%byte => True
                        | _ => False
                        end
    | "204"%byte =>
        fun y : byte => match y with
                        | "204"%byte => True
                        | _ => False
                        end
    | "205"%byte =>
        fun y : byte => match y with
                        | "205"%byte => True
                        | _ => False
                        end
    | "206"%byte =>
        fun y : byte => match y with
                        | "206"%byte => True
                        | _ => False
                        end
    | "207"%byte =>
        fun y : byte => match y with
                        | "207"%byte => True
                        | _ => False
                        end
    | "208"%byte =>
        fun y : byte => match y with
                        | "208"%byte => True
                        | _ => False
                        end
    | "209"%byte =>
        fun y : byte => match y with
                        | "209"%byte => True
                        | _ => False
                        end
    | "210"%byte =>
        fun y : byte => match y with
                        | "210"%byte => True
                        | _ => False
                        end
    | "211"%byte =>
        fun y : byte => match y with
                        | "211"%byte => True
                        | _ => False
                        end
    | "212"%byte =>
        fun y : byte => match y with
                        | "212"%byte => True
                        | _ => False
                        end
    | "213"%byte =>
        fun y : byte => match y with
                        | "213"%byte => True
                        | _ => False
                        end
    | "214"%byte =>
        fun y : byte => match y with
                        | "214"%byte => True
                        | _ => False
                        end
    | "215"%byte =>
        fun y : byte => match y with
                        | "215"%byte => True
                        | _ => False
                        end
    | "216"%byte =>
        fun y : byte => match y with
                        | "216"%byte => True
                        | _ => False
                        end
    | "217"%byte =>
        fun y : byte => match y with
                        | "217"%byte => True
                        | _ => False
                        end
    | "218"%byte =>
        fun y : byte => match y with
                        | "218"%byte => True
                        | _ => False
                        end
    | "219"%byte =>
        fun y : byte => match y with
                        | "219"%byte => True
                        | _ => False
                        end
    | "220"%byte =>
        fun y : byte => match y with
                        | "220"%byte => True
                        | _ => False
                        end
    | "221"%byte =>
        fun y : byte => match y with
                        | "221"%byte => True
                        | _ => False
                        end
    | "222"%byte =>
        fun y : byte => match y with
                        | "222"%byte => True
                        | _ => False
                        end
    | "223"%byte =>
        fun y : byte => match y with
                        | "223"%byte => True
                        | _ => False
                        end
    | "224"%byte =>
        fun y : byte => match y with
                        | "224"%byte => True
                        | _ => False
                        end
    | "225"%byte =>
        fun y : byte => match y with
                        | "225"%byte => True
                        | _ => False
                        end
    | "226"%byte =>
        fun y : byte => match y with
                        | "226"%byte => True
                        | _ => False
                        end
    | "227"%byte =>
        fun y : byte => match y with
                        | "227"%byte => True
                        | _ => False
                        end
    | "228"%byte =>
        fun y : byte => match y with
                        | "228"%byte => True
                        | _ => False
                        end
    | "229"%byte =>
        fun y : byte => match y with
                        | "229"%byte => True
                        | _ => False
                        end
    | "230"%byte =>
        fun y : byte => match y with
                        | "230"%byte => True
                        | _ => False
                        end
    | "231"%byte =>
        fun y : byte => match y with
                        | "231"%byte => True
                        | _ => False
                        end
    | "232"%byte =>
        fun y : byte => match y with
                        | "232"%byte => True
                        | _ => False
                        end
    | "233"%byte =>
        fun y : byte => match y with
                        | "233"%byte => True
                        | _ => False
                        end
    | "234"%byte =>
        fun y : byte => match y with
                        | "234"%byte => True
                        | _ => False
                        end
    | "235"%byte =>
        fun y : byte => match y with
                        | "235"%byte => True
                        | _ => False
                        end
    | "236"%byte =>
        fun y : byte => match y with
                        | "236"%byte => True
                        | _ => False
                        end
    | "237"%byte =>
        fun y : byte => match y with
                        | "237"%byte => True
                        | _ => False
                        end
    | "238"%byte =>
        fun y : byte => match y with
                        | "238"%byte => True
                        | _ => False
                        end
    | "239"%byte =>
        fun y : byte => match y with
                        | "239"%byte => True
                        | _ => False
                        end
    | "240"%byte =>
        fun y : byte => match y with
                        | "240"%byte => True
                        | _ => False
                        end
    | "241"%byte =>
        fun y : byte => match y with
                        | "241"%byte => True
                        | _ => False
                        end
    | "242"%byte =>
        fun y : byte => match y with
                        | "242"%byte => True
                        | _ => False
                        end
    | "243"%byte =>
        fun y : byte => match y with
                        | "243"%byte => True
                        | _ => False
                        end
    | "244"%byte =>
        fun y : byte => match y with
                        | "244"%byte => True
                        | _ => False
                        end
    | "245"%byte =>
        fun y : byte => match y with
                        | "245"%byte => True
                        | _ => False
                        end
    | "246"%byte =>
        fun y : byte => match y with
                        | "246"%byte => True
                        | _ => False
                        end
    | "247"%byte =>
        fun y : byte => match y with
                        | "247"%byte => True
                        | _ => False
                        end
    | "248"%byte =>
        fun y : byte => match y with
                        | "248"%byte => True
                        | _ => False
                        end
    | "249"%byte =>
        fun y : byte => match y with
                        | "249"%byte => True
                        | _ => False
                        end
    | "250"%byte =>
        fun y : byte => match y with
                        | "250"%byte => True
                        | _ => False
                        end
    | "251"%byte =>
        fun y : byte => match y with
                        | "251"%byte => True
                        | _ => False
                        end
    | "252"%byte =>
        fun y : byte => match y with
                        | "252"%byte => True
                        | _ => False
                        end
    | "253"%byte =>
        fun y : byte => match y with
                        | "253"%byte => True
                        | _ => False
                        end
    | "254"%byte =>
        fun y : byte => match y with
                        | "254"%byte => True
                        | _ => False
                        end
    | "255"%byte =>
        fun y : byte => match y with
                        | "255"%byte => True
                        | _ => False
                        end
    end b)


DEBUG:Going to execute:
let tacT H := let ph := fresh "X" in
                         destruct H as [H ph] in
           let tacT2 H :=
            let ph := fresh "X" in
            let ph' := fresh "X" in
            destruct H as [H ph ph']
           in
           match goal with
           | H:exists y, _ y |- _ => tac H
           | H:{x : _ | ?P x} |- _ => tac H
           | H:{x : _ & ?P x} |- _ => tacT H
           | H:exists2 x : _, _ x & _ x |- _ => tac2 H
           | H:{x : _ | ?P x & _ x} |- _ => tac2 H
           | H:{x : _ & ?P x & _ x} |- _ => tacT2 H
           end