Skip to content

Commit 01cce98

Browse files
committed
Try to test an issue with Alectryon snippets
1 parent e40d386 commit 01cce98

File tree

1 file changed

+5
-10
lines changed

1 file changed

+5
-10
lines changed

theories/ordinals/MoreAck/AckNotPR.v

Lines changed: 5 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -395,18 +395,13 @@ Section Impossibility_Proof.
395395
Context (HAck : isPR 2 Ack).
396396

397397
Lemma Ack_not_PR : False. (* .no-out *)
398-
(*|
399-
.. coq:: no-out
400-
|*)
401-
Proof.
402-
destruct (majorPR2_strict Ack HAck) as [m Hm].
403-
pose (X := max 2 m); specialize (Hm X X).
404-
rewrite Nat.max_idempotent in Hm;
405-
assert (H0: Ack m X <= Ack X X) by (apply Ack_mono_l; lia).
398+
Proof. (* .no-out *)
399+
destruct (majorPR2_strict Ack HAck) as [m Hm];
400+
set (x := max 2 m).
401+
specialize (Hm x x); rewrite Nat.max_idempotent in Hm.
402+
assert (H0: Ack m x <= Ack x x) by (apply Ack_mono_l; lia).
406403
lia.
407404
Qed.
408-
(*||*)
409-
410405

411406
End Impossibility_Proof.
412407

0 commit comments

Comments
 (0)