fact: Definition K1 := Conc (Atom false) (Plus (Conc (Atom false) (Conc (Star (Atom false)) (Star (Atom true)))) (Star (Atom true))).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq fintype) mathcomp(bigop path) RegexpBrzozowski(glue gfinset regexp finite_der equiv) RegexpBrzozowski(sim1 sim2)