fact: Definition filter (s : tc2 * tc2) l := let (states, nstates) := s in let ll := encode_state l in if tc2i3 ll states then s else let states1 := tc2a3 ll states in let nstates1 := tc2a3 ll nstates in (states1, nstates1).
imports: PrimInt63 Cyclic63 List BasicRubik Max