End ReflectConnectives.
Arguments and6P [b1 b2 b3 b4 b5 b6].
Arguments and7P [b1 b2 b3 b4 b5 b6 b7].
Arguments or5P [b1 b2 b3 b4 b5].
Arguments or6P [b1 b2 b3 b4 b5 b6].
Arguments or7P [b1 b2 b3 b4 b5 b6 b7].
Prenex Implicits and6P and7P or5P or6P or7P.

(* Specifications: *)
Lemma andX (a b : bool) : reflect (a * b) (a && b).
Lemma iterS g n s1 s2 :
iter' g n.+1 s1 s2 <-> exists s, iter' g n s1 s /\ g s s2.
Lemma iter'_sub g g' n s1 s2 :
(forall s1 s2, g s1 s2 -> g' s1 s2) ->
iter' g n s1 s2 -> iter' g' n s1 s2.