fact: Definition store_qz qz := if qz is Quiz (QaskR qa1 q1) (QaskR qa2 q2) then match normq q1, normq q2 with | QaskLR qa1r q1l q1r, QaskLR qa2r q2l q2r => if qa1r < qa2r then qzt_put qa1 qa2 qa1r q1l q2 q1r else qzt_put qa1 qa2r qa2 q1 q2r q2l | QaskLR qa1r q1l q1r, _ => qzt_put qa1 qa2 qa1r q1l q2 q1r | _, QaskLR qa2r q2l q2r => qzt_put qa1 qa2r qa2 q1 q2r q2l | _, _ => fun t => t end else fun t => t.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring quiz cfmap) fourcolor(cfquiz cfreducible)