Definition iso3l := dir_iso3l ++ indir_iso3l.
Definition seq_iso3_L := map sop iso3l.

(* Specifications: *)
Lemma eqperm : forall p1 p2 : {perm cube},
(p1 == p2) = all (fun s => p1 s == p2 s) ecubes.
Lemma iso_eq_F0_F1_F2 : forall r s : {perm cube}, is_iso3 r ->
is_iso3 s -> r F0 = s F0 -> r F1 = s F1 ->  r F2 = s F2 -> r = s.