(* Copyright 2012-2015 by Adam Petcher.				* * Use of this source code is governed by the license described	* * in the LICENSE file at the root of the source tree.		*)
(* Rules used to prove facts based on the distribution semantics *)
Set Implicit Arguments.
Local Open Scope rat_scope.
Local Open Scope comp_scope.
Local Open Scope list_scope.

(* Specifications: *)
(* The uniformity rule allows us to conclude that all bit vectors (of the same length) are equally likely. *)
Theorem uniformity : forall n (x1 x2 : Bvector n),
evalDist ({0, 1} ^ n) x1 == evalDist ({0, 1} ^ n) x2.