fact: Definition AC := λ"f" quote' @ (Y @ λ"x" λ"n" callcc @ λ"k" "f" @ (λ"v" "v" @ "x" @ "n" @ "k") @ (λ"u" λ"x'" λ"n'" λ"k'" comp @ "n" @ "n'" @ ("k" @ ("x'" @ "n")) @ "u" @ ("k'" @ ("x" @ "n'")))).
imports: ZArith Classical ClassicalRealizability.Kbase ClassicalRealizability.Integers