(* Copyright 2012-2017 by Adam Petcher and FCF Contributors.	* * Use of this source code is governed by the license described	* * in the LICENSE file at the root of the source tree.		*)
(* An argument that is used to prove that the "two worlds" style of security definition is equivalent to the "coin flipping" style. *)
Set Implicit Arguments.

Theorem evalDist_bool_support :
forall (c : Comp bool)(ls : list bool),
well_formed_comp c ->
ls = getSupport c ->
sumList ls (evalDist c) == evalDist c false + evalDist c true.