(* QuickChick Prelude *)
Set Warnings "-extraction-opaque-accessed,-extraction".
Set Warnings "-notation-overridden,-parsing".
Set Bullet Behavior "Strict Subproofs".
(* End prelude *)
Require Export Poly.
Admitted. (* Leo: OUT-OF-SCOPE *)

Theorem silly2 : forall (n m o p : nat),
n = m  ->
(forall (q r : nat), q = r -> [q;o] = [r;p]) ->
[n;o] = [m;p].