fact: Definition addc : color -> color -> color := palette id (palette Color1 Color0 Color3 Color2) (palette Color2 Color3 Color0 Color1) (palette Color3 Color2 Color1 Color0).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype)