Entry Value
Name probability_15
Conclusion !n r. random_geometric_loop n r = (let r1,r2 = split_random r in if random_bit r1 then n else random_geometric_loop (SUC n) r2)
Constructive Proof Yes
Axiom
N|A
Classical Lemmas N|A
Constructive Lemmas
  • T
  • !x. x = x
  • !t. (!x. t) <=> t
  • !f y. (\x. f x) y = f y
  • !n r. random_geometric_loop n r = (let r1,r2 = split_random r in if random_bit r1 then n else random_geometric_loop (SUC n) r2)
  • T <=> (\p. p) = (\p. p)
  • LET_END = (\t. t)
  • (/\) = (\p q. (\f. f p q) = (\f. f T T))
  • (==>) = (\p q. p /\ q <=> p)
  • LET = (\f. f)
  • (!) = (\p. p = (\x. T))
  • Contained Package probability
    Comment Probability package from OpenTheory.
    Back to main package pageBack to contained package page