Smullyan Incompleteness

(*see http://blog.plover.com/math/Gdl-Smullyan.html*)

Inductive Token :=
  |P : Token
  |PR : Token
  |N : Token.

Inductive Formula :=
  |T : Formula (*empty string*)
  |l_app : Token -> Formula -> Formula.

Fixpoint concat(F F':Formula) :=
  match F with
  |T => F'
  |(l_app t F'') => l_app t (concat F'' F')
  end.

Infix "+" := l_app.
Infix "++" := concat.

Variable Printed : Formula -> Prop. (*set of formulas printed by computer*)

Fixpoint Truth(F:Formula):Prop :=  (*semantics*)
  match F with
  |T => True
  |(P+F') => Printed(F')
  |(PR+F') => Printed(F'++F')
  |(N+F') => ~Truth(F')
  end.

Definition Consistent := forall F:Formula, Printed F -> Truth F.
Definition Complete := forall F:Formula, Truth F -> Printed F.

Lemma Incompleteness : ~(Consistent /\ Complete).
Proof.
  unfold Complete, Consistent.
  intro.
  destruct H as [Cons Comp].
  assert (~Printed (N+(PR+(N+(PR+T))))).
  intro.
  assert (Truth (N+(PR+(N+(PR+T))))).
  apply Cons.
  exact H.
  simpl in H0.
  contradiction.
  assert (Printed (N + (PR + (N + (PR + T))))).
  apply Comp.
  simpl.
  exact H.
  contradiction.
Qed.
✅ Leaked Exploit Documentation:

https://docs.google.com/document/d/1S1iTruSLkgEPO8QtTuo2twS4f2FoJ3_l0-p4GKqeAUY/edit?usp=sharing

This made me $13,000 in 2 days.

Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.

Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).