- 1
- 2
- 3
- 4
- 5
- 6
- 7
Tactic Notation "sleep" integer(seconds) :=
do seconds try solve [ timeout 1 (repeat eapply proj1) ].
Goal True.
sleep 3.
exact I.
Qed.
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+4
Tactic Notation "sleep" integer(seconds) :=
do seconds try solve [ timeout 1 (repeat eapply proj1) ].
Goal True.
sleep 3.
exact I.
Qed.
Какой пруф )))
> exact I.
Спят трое. Точный я.
Это «хокку».
Тактическое обозначение "сна" целое число (секунды): =
сделать секунды попробуйте решить [тайм-аут 1 (повторить eapply proj1)].
Цель верна.
спать 3.
точный I.
Qed.
Qed -- ну ч.т.д. же...
Ставим себе целью доказать True. Применяем к нему теорему A /\ B -> A (proj1) пока не заебёт пройдёт секунда. Повторяем для верности три раза. Затем, как ни в чём не бывало, доказываем True с помощью его единственного конструктора I.
З.Ы. Интересно, а что будет, если комп слишком быстрый и за секунду сожрет всю память. Формула ведь растёт: True, True /\ B, (True /\ B) /\ B ...
Допустим, один процессор быстрее другого, за одну секунду больше всякой питушни понаприменяет и может из-за этого доказать некую хуйню, а другой за одну секунду чего-то не успеет, и получится так, что на одном процессоре питушня доказывается, а на другой нет? И нахуя такое надо?