Built . It shows the files as they were then (ages and “working now” follow your clock). tools/rebuild_pages.sh rebuilds the site within 5 minutes of a change; by hand: python3 -B tools/site.py.

Machines / W5-5

`1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---`

W5-5local proof 30Claimed by someone elseBell eats counterbbchallenge ↗Explorer

How we proved it halts

Replaying a counter until a regrouped digit halts it

Left of the head is a counter written in three-cell digits; right of it is a long "bell", a row of 001 blocks with one odd block, 0001, inside. Each round, the head adds 1 to the counter, walks out to the odd block and moves it one block closer to the counter. When it arrives, the bell bites a few cells off the counter's low end, and the odd block starts over near the bell's far end: one cycle.

The key idea: most rounds are plain counting. On digits whose middle cell is 0 ("clean" digits), a round adds 1 in base 4, each digit standing for −1, 0, 1 or 2, so long stretches of rounds reduce to arithmetic. The surprises come from bites: a bite usually removes a number of cells that is not a multiple of 3, so the remaining cells regroup into new digits, each made of the end of one old digit and the start of the next. That can create "dirty" digits (middle cell 1), which counting never makes and later carries usually clean up.

Why it halts: the machine stops when a carry reaches a dirty 110 while the next higher digit ends in 1. Over 611,578 cycles, a 110 or 111 appears right after a bite only 369 times, and only in the last cycle does the next higher digit end in 1. There a carry turns the 111 into 110 (round 3,339), and the next carry to reach it (round 7,435) hits the missing instruction. Summing exact per-cycle step formulas, in three independent counts, gives about 1.8 quintillion steps (1,816,824,067,232,869,945).

In Rocq (busycoq), clean rounds are proved lemmas applied in batches, and all other rounds run on a verified simulator. A checker, proved correct once, replays the run from step 288 in 4,942,483 checked moves; this proves halting, not the step count.

#30local proof number

2,976lines of Rocq

623 sto compile

6/6automatic checks

Claimed by someone else

We proved this machine locally, but our proof was still unsubmitted when we found it already covered upstream.

Submit completed proofs early. A local proof does not secure an upstream claim.

Upstream proof ↗ · Recorded timeline

What the timing evidence establishes

This describes upstream credit, not who first discovered the mathematics. The records do not establish adoption of our proof, first public push time, or whether an earlier submission would have secured credit.

Overview

In one sentence

Each round adds 1 to a base-4 counter and walks a defect 1 block left; then the bell bites the counter's low end.

Submitted mechanism At each round start the tape is 0^∞ w 0 E> 101 (001)^b 0001 (001)^c 0^∞: a counter w of three-cell digits (001 000 101 100 = −1 0 1 2, balanced base 4), and a bell whose defect 0001 sits after b blocks. (submission/README.md, Mechanism)

Upstream: The blank-start machine halts: BECv10.v.TM5 ↗. We also have a local proof. This upstream addition is separate from our merged submissions; adoption credit is not established. Recorded commit time: 2026-10-13T13:42:06Z. First public push time is not established.
Rocq proof: check_kill PASS · first Oct 13 10:33
2,976 lines · 248 KB .v · compile 623.2 s · coqchk pass · 0 axioms · PASS Oct 13 10:33 (re-run Oct 14 19:07)
· the .v file
Automatic review: 6 of 6 checks passtemplate: verify/Sk1Machines.v (adapted from) · details in Proof →
Class: Bell eats counterours: sheet Bell eats counter (results: Chaotic; level-0 note: chaotic bell eats counter) ≠ ours Bell eats counter: signed base-4 counter on 3-cell digits, bitten by a growing bell (W4-2 architecture) · med confidence
On the list: not on BB6_holdouts_663.txt (line 29 of the previous list) · historical 740 line 29 · observe.json rank #29
eqv ×13sim 1e15

Your calls on file 2

funded: option: certify · date: 2026-10-13 · decision: decisions/2026-10-13-certify.json
2026-10-13 · certify: W5-5 is predicted to halt at about 1.82e18 steps (cycle 611,577): fund a Rocq halting certificate in the C2-552 style, only firm up the evidence (exact step count, more checks), or park? (Dennis 2026-10-13: 'go with recommendations')

Mechanism

What to check here: the pictures show the mechanism that the rule table describes.

How it works: 3 notes

Round start K(w,b,c) = 0^inf w 0 E> 101 (001)^b 0001 (001)^c 0^inf; w = 3-cell digits x0y worth 2x-y (001=-1, 000=0, 101=1, 100=2). Round (b>=3): K(w,b,c) -> K(w+1,b-1,c+1) in 12b+22+14t(+4) steps, exact, 300/300.
Eat (b=2): 1-7 sub-rounds over the bell; the boundary moves left d = 3j+2 cells (pure bite for d>=5), b' = c+1..c+5, so L grows ~1-3 per eat and L ~ step^(1/3). The 2-cell alignment shift leaves dirty digits 010/011, which later carries clean.
Halting routes exist (round on ...1 110; eat on a 111 top, fed by eats on 011 tops), but to 3e10 steps (1,597 eats) no pre-eat counter has a 011/111 top: avoidance looks structural, as in W4-2. No closed form for the eat yet.

Figures for Checkpoint A

Fig 1 · bbchallenge default view, first 10,000 steps
The site's view. The left edge is the counter; the striped body is the bell of 100 blocks.

Fig 2 · Round starts near 1e9: three cyclesQ1
One row per 6th round. Follow a yellow line down; note where it restarts and what the counter does.

Fig 3 · The last 400 cycles before the halt
Bottom rows: dirty digits (pink) survive, a 111 (red) appears; the last row is the post-eat word that halts.

More figures (2)Fig 4–5: Counter before and after each eat · Counter excursions over 611,577 cycles

Rules (6/7 validated)1 failing · exact tape rewrites the proof will formalize, each re-checked by simulation

rule	from ⟶ to	cases	steps	checked
ROUND (clean counter)	0^∞ w 0 E> 101 (001)^b 0001 (001)^c 0^∞ ⟶ 0^∞ (w+1) 0 E> 101 (001)^b-1 0001 (001)^c+1 0^∞	b >= 3; w over the clean digits 001,000,101,100 (values -1,0,1,2); w+1 = +1 in base 4 with digits {-1,0,1,2}; t = number of trailing 100 digits	12b+22+14t (+4 if the digit that absorbs the carry is 000 or blank)	✓300/300
ROUND step count	K(w,b,c) ⟶ K(w+1,b-1,c+1)	t = carry length; fitted on 40 random instances, k <= 6 digits, b <= 40	12b+22+14t (+4)	✓40/40
ROUND (dirty counter)	K(w,b,c), w with digits 010/011 ⟶ K(w',b-1,c+1)	exhaustive: every 1-3 digit word over {001,000,101,100,011,010} with a dirty digit, 40-70 rounds each: no halt, never another code, always clean again after the carry passes (no closed form for w' yet)	—	✓172/172
EAT shape	K(w,2,c) ⟶ K(w', c+delta, c'), delta in 1..5, c' in 0..6	random clean words (1-7 digits, 1500) and 30%-dirty words (1500), c = 20..120: no halt, always returns to K-form; w' has no closed form yet	—	✓3000/3000
EAT bite (real run)	pre-eat boundary p ⟶ post-eat boundary p-d, d = 3j+2	d >= 5: the cells left of the new boundary are unchanged (pure bite); d = 2: 1-8 cells near the new boundary rewritten (a carry/borrow); 496 eats to 1e9 (4 early eats with d = 0)	—	✗492/496
HALT route A	K(w,b,c), w ends in 1 110 (cells) ⟶ halt	001110, 101110, 011110, 111110 (all 2-digit words with low block 110 and a 1 left of it)	6	✓4/4
HALT route B	K(w,2,c), top block 111 ⟶ halt (during the eat)	e.g. 111001011, 111000001, 111000101 for c = 30, 31, 32; top-011 words (14 of 3 digits) instead leave a 110/111 top after the eat	—	✓9/9

Compressed historythe tape as pre-eat round start K(w, 2, c), L = c+3 bell blocks at 28 moments: where the rules are read off

pre-eat round start K(w, 2, c), L = c+3 bell blocks

step	`eat #`	`L (bell blocks)`	`counter cells`	`boundary shift to next eat`
706	1	5	1	8
1,304	2	8	3	2
2,088	3	9	6	5
3,135	4	11	6	2
6,002	6	14	6	2
12,744	9	19	9	2
27,670	13	25	9	5
85,524	21	37	9	2
220,200	31	53	12	2
1,009,152	51	97	12	2
4,067,606	81	155	12	8
13,806,185	121	234	15	2
46,434,732	181	353	15	2
127,529,227	251	506	15	5
357,547,720	351	719	15	5
771,380,521	451	916	18	2
1,385,637,899	551	1,094	18	8
2,239,637,135	651	1,272	15	2
3,377,783,939	751	1,476	18	2
4,865,302,052	851	1,667	18	8
6,737,854,451	951	1,852	18	2
9,042,409,298	1,051	2,057	18	2
11,868,540,672	1,151	2,265	18	2
14,971,811,793	1,251	2,441	39	35
18,114,354,159	1,351	2,609	18	5
22,515,414,649	1,451	2,791	15	5
27,466,733,738	1,551	2,971	24	2
29,935,603,692	1,596	3,072	21	5

eat #last 1,596

L (bell blocks)last 3,072

counter cellslast 21

boundary shift to next eatlast 5

Template comparisonBECv5.v TM1: partly applies · the nearest solved proof, what carries over, and the transitions that differ

	0	1
A	1RB	0RE
B	1RC	0RA
C	0LD	0RB
D	1LA	0LE
E	1LC	1LF
F	0LC	---

file: BECv5.v:30
module: TM1
machine: 1RB1LF_0RC0RB_0LD1LA_1LC0LE_0LA---_1LA0RB (9 transitions apart)
diff: different table (not a near neighbour); same architecture as our W4-2 kill (BECv5 TM1/TM2 plus an invariant)
note: BECv5/W4-2: K(w,n,m) = w <A 1 (10)^(1+n) 0 (10)^m, bounce n-1, m+1, w -> phi(w) (binary +1); overflow at n = 0 bites q+1 trailing cells, parity of q decides safety. Here: the same bounce rule with a signed base-4 counter on 3-cell digits, the overflow is a multi-sub-round eat at b = 2 that bites d = 3j+2 cells and re-aligns the digits, and halting needs a dirty top digit (011/111) under a deep bite. RIncs/LIncs-style lemmas carry over in shape; the eat and the dirty-digit tracking are new.

Proof strategy & riskshow the formal proof will go · 3 risks to watch

1) Derive the eat exactly: the left E-run through the low digits and the B sub-rounds over the bell, giving d = 3j+2 and w' from w's low digits. 2) Abstract simulator on (w,b,c), checked against direct simulation. 3) Look for a W4-2-style invariant: dirty high digits are cleaned by carries before a bite deep enough to reach them.

▲The path to the halting cycle (1.82e18 steps) is not directly simulated; it rests on the cycle model (eat bell-size independence, round b-independence, clean-increment arithmetic), checked on all 611,577 eats, ~2.0M oracle rounds, 1,572 direct cycles and 22,905 independently recomputed cycles.
▲A Rocq certificate needs parametric eat/round lemmas for this table and a checked replay of 611,577 cycles (C2-552 style); effort is large but mechanical.
▲No exact total step count yet (dominant term 1.8168e18).

Stats & provenance3·10¹⁰ steps simulated · 2,150 nonzeros · the status in full · files

simulated: 3·10¹⁰ steps
tape: 2,150 nonzeros
growth: no halt to 3e10 steps (scripts/eats.c); L ~ step^(1/3): 996 bell blocks at 1e9, 3,072 at 3e10; span 6,448 cells and 2,150 ones at 1e10 (tools/sim.py)
status now: check_kill --halt PASS, independently re-verified (status.json, 2026-10-14)
observer's note: HALT predicted at about 1.82e18 steps (cycle 611,577, c = 1,218,828); the final cycle halts in direct TM simulation, the path to it rests on a TM-grounded cycle model checked several ways. Not certified.
files: observe.json · notes.md · proof.md · how_proved.md · status.json · 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v

Proof & checks

6/6 automatic checks pass

Kill 30 · Bell eats counter · the kill file 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v: 2976 lines, 2375 items · the package submission/

✓ 6/6 automatic checks pass · Checkpoint B: no note from Dennis yet · template (adapted from): verify/Sk1Machines.v · 1% of our lines identical

1What is provedCheck: the string, the theorem and every check_kill line are green, and the .v on disk is the one that was checked (same sha256).

Machine

1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---

vs holdout list

✓ byte-exact: the .v literal (L35) == 2026-10-07_778.txt line 32 (41 bytes, via tools/holdouts.py)

Theorem

✓ Lemma halt: halts tm c0. L2954

check_kill

✓ PASS · 17/17 checks pass · compile 623.22 s · coqchk pass (11095.23 s) · assumptions: 0 (closed) · 2026-10-15 02:07:28 UTC · check_kill.txt · 2 runs on file

Checked .v

sha256 5b83f5b1511a76ab…

✓	1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v	`5b83f5b1511a76ab…` = checked
✓	submission/1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v	`5b83f5b1511a76ab…` = checked

Status

✓Killed: halts updated 2026-10-14

✓ args✓ input✓ framework✓ framework_build✓ forbidden✓ structure✓ tm_text✓ theorem_text✓ coq✓ names✓ compile✓ tm_rocq✓ theorem_rocq✓ isolation✓ assumptions✓ coqchk✓ integrity

All 17 check_kill checks with their one-line results

✓	`args`	6x2 machine, framework module Individual62, mode halt
✓	`input`	254282 bytes, 2976 lines, 7480 sentences
✓	`framework`	HEAD 0940bb9cf434ba68f0c025dabfde45a219999973 == pin; no tracked changes under verify/
✓	`framework_build`	13 needed framework .vo files present and fresh, with native code no older than the .vo
✓	`forbidden`	none of 30 forbidden patterns occur (ground rule 1's words: anywhere; command words: outside comments and strings; comments never split a token)
✓	`structure`	10 Require name(s) allowed; no top-level Variable/Context; no shadowing; Module/Section balanced
✓	`tm_text`	line 35: TM_from_str "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---" == <tm> (41 bytes)
✓	`theorem_text`	line 2954: halt : halts tm c0
✓	`coq`	coqc 8.20.1 ([local working file]
✓	`names`	halts, c0, TM_from_str resolved inside Individual62
✓	`compile`	compiled in 623.2s with all appended checks
✓	`tm_rocq`	BB6Kill.Candidate.tm = BusyCoq.Individual62.TM_from_str "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---" by eq_refl (in-file and isolated)
✓	`theorem_rocq`	halt : halts (TM_from_str "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---") c0 with absolute names (in-file and isolated)
✓	`isolation`	only stock proof plugins loaded; guard/positivity/universe checking on, definitional UIP off
✓	`assumptions`	0 assumption(s), all in the baseline
✓	`coqchk`	coqchk -norec BB6Kill.Candidate ok (11095.2s); its context summary lists nothing of the file's own
✓	`integrity`	input sha256 and framework HEAD/cleanliness identical before and after

2Where it came fromCheck: the template is the one you expect, and the measured reuse (tiles, the reuse figure, diff) agrees with what the README says was kept and changed (quoted).

adapted from verify/Sk1Machines.v · detected from 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v line 21

1%of our lines identical to the template

1changed lines

2838added lines (ours only)

1866template lines dropped

0 / 15 / 2360items identical / adapted / new

What the package README says it reused and changed (submission/README.md line 20, Template), quoted:

verify/Sk1Machines.v, Module Sk1Auto: one checker step iterated by Eqb.N_iter_until and proved sound once with N_iter_until_spec, with untrusted proposals checked at each use.

Kept: that architecture and run-length configurations.
Changed: this machine's rounds and digits, closed-form batches of rounds, block rules found while the simulator runs instead of a fixed list of scans, and a parser for the round-start configuration.

Fig P1 · Reuse of the template, line by line and by name

Top two bars: non-blank lines after the TM string is replaced by <TM> and whitespace is collapsed. Bottom bar: our Definitions/Lemmas/… by name.

ours 2879 lines

1% identical · 1 changed · 2838 added

template 1907 lines

2% kept verbatim · 1866 not in ours

our items 2375

0 identical · 15 adapted · 2360 new · 173 template-only

identicalchanged / adaptedours only (new)template only

Template part: whole file, lines 3–2043 (leading comment left out). Ours: lines 29–2976 (header comment 1–28 left out). Line diff: Python difflib SequenceMatcher; inside a replaced block, line pairs at least 75% alike count as changed, the rest as removed + added.

Template-only names: W, digit, word, give, carry, walls, prefix_rule, effect, total, total_spec, total_add, total_six, total_period, effectN, denote_effect, totalN, totalN_spec, cell_word, totalN_rule, scan, scan_valid, head, start, calls_spec, batch_root, total_seven, nil_power, t, denote, remove, remove_spec, commute_power, skip_block, skip_block_spec, skip_periodic, skip_periodic_spec, skip, skip_spec, remove_fast, remove_fast_spec …

Other references found:

template vendor/busycoq/verify/Sk1Machines.v Module Sk1Auto (named in submission/proof.md line 23)

Side-by-side diff: template (1907 lines) vs ours (2879 lines), 4705 lines differ; runs of identical lines and long template-only runs folded

identicalequal once each TM string is <TM>changedours onlytemplate only

template		ours
3	From BusyCoq Require Import Individual62 Helper LongitudinalHalt Eqb FastRev.
		30	From BusyCoq Require Import Individual62 Eqb.
4	Require Import ZifyNat Lia NArith PeanoNat String List.	31	Require Import ZifyNat ZifyN Lia NArith ZArith PeanoNat String List.
5	Import BusyCoq.Eqb.
6	Open Scope sym_scope.	32	Open Scope sym_scope.
8	Module Sk1Counter.
		33	Open Scope list.
9	Definition W : list Sym := [1;1;1;1;0;1;1;1;1;1].
		35	Definition tm := Eval compute in (TM_from_str "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---").
10	Inductive digit := D0 \| D1 \| D2 \| D3 \| D4 \| D5.
		36	Notation "c -->* c'" := (c -[ tm ]->* c') (at level 40).
11	Definition word p : list Sym :=
		37	Notation "c -->+ c'" := (c -[ tm ]->+ c') (at level 40).
12	match p with
		39	(** * Rounds *)
13	\| D0 => [0;1] \| D1 => [1;1;1;1]
		40	Definition bellw b c : list Sym := [1;0;1] ++ [0;0;1]^^b ++ [0;0;0;1] ++ [0;0;1]^^c.
14	\| D2 => [0;1;1;1;1;1] \| D3 => [1;1;1;1;1;1;1;1]
		41	Definition K (X:side) b c : Q * tape := X <* [0] {{E}}> bellw b c *> 0inf.
15	\| D4 => [0;1;1;1;1;1;1;1;1;1]
		42	Definition callw (X X':side) := forall r, X <{{C}} 0 >> r -->* X' {{B}}> 0 >> r.
16	\| D5 => [1;1;1;1;1;1;1;1;1;1;1;1]
		44	Lemma bellpart X b c: X {{B}}> 0 >> bellw (S b) c *> 0inf -->+ K X b (S c).
		45	Proof. unfold K, bellw. es. Qed.
		47	Lemma round X X' b c: callw X X' -> K X (S b) c -->+ K X' b (S c).
		48	Proof.
		49	intros H. eapply evstep_progress_trans. 2: apply bellpart.
		50	change (K X (S b) c) with (X <* [0] {{E}}> 1 >> (([0;1] ++ [0;0;1]^^(S b) ++ [0;0;0;1] ++ [0;0;1]^^c) *> 0inf)).
		51	do 2 step1. follow H. apply evstep_refl.
		52	Qed.
		54	Inductive dg := Dm \| D0 \| D1 \| D2.
		55	Definition dcell (d:dg) : list Sym := match d with
		56	\| Dm => [1;0;0] \| D0 => [0;0;0] \| D1 => [1;0;1] \| D2 => [0;0;1] end.
		57	Fixpoint cells (ds:list dg) : list Sym := match ds with [] => [] \| d::r => dcell d ++ cells r end.
		58	Fixpoint inc (ds:list dg) : option (list dg) := match ds with
		59	\| [] => None
		60	\| D2 :: r => match inc r with Some r' => Some (Dm :: r') \| None => None end
		61	\| Dm :: r => Some (D0 :: r) \| D0 :: r => Some (D1 :: r) \| D1 :: r => Some (D2 :: r) end.
		63	Lemma absm H: callw ([1;0;0] > H) ([0;0;0] > H).
		64	Proof. unfold callw. es. Qed.
		65	Lemma abs0 H: callw ([0;0;0] > H) ([1;0;1] > H).
		66	Proof. unfold callw. es. Qed.
		67	Lemma abs1 H: callw ([1;0;1] > H) ([0;0;1] > H).
		68	Proof. unfold callw. es. Qed.
		69	Lemma pass2 X X': callw X X' -> callw ([0;0;1] > X) ([1;0;0] > X').
		70	Proof.
		71	unfold callw. intros H r. cbn [Str_app].
		72	do 5 step1. follow H. es.
		73	Qed.
		75	Lemma callw_inc ds: forall ds' H, inc ds = Some ds' -> callw (cells ds > H) (cells ds' > H).
		76	Proof.
		77	induction ds as [\|d r IH]; intros ds' H E; [discriminate\|].
		78	destruct d; cbn [inc] in E.
		79	- injection E as <-. cbn [cells dcell]. rewrite !Str_app_assoc. apply absm.
		80	- injection E as <-. cbn [cells dcell]. rewrite !Str_app_assoc. apply abs0.
		81	- injection E as <-. cbn [cells dcell]. rewrite !Str_app_assoc. apply abs1.
		82	- destruct (inc r) as [r'\|] eqn:E2; [\|discriminate]. injection E as <-.
		83	cbn [cells dcell]. rewrite !Str_app_assoc. apply pass2, IH. reflexivity.
		84	Qed.
		86	Lemma round_inc ds ds' H b c: inc ds = Some ds' ->
		87	K (cells ds > H) (S b) c -->+ K (cells ds' > H) b (S c).
		88	Proof. intros E. apply round, callw_inc, E. Qed.
		90	(** * Balanced base-4 values *)
		91	Definition dv (d:dg) : Z := match d with Dm => (-1)%Z \| D0 => 0%Z \| D1 => 1%Z \| D2 => 2%Z end.
		92	Fixpoint val (ds:list dg) : Z := match ds with [] => 0%Z \| d::r => (dv d + 4 * val r)%Z end.
		93	Fixpoint maxv (f:nat) : Z := match f with O => 0%Z \| S f => (2 + 4 * maxv f)%Z end.
		95	Lemma val_le_maxv ds: (val ds <= maxv (length ds))%Z.
		96	Proof. induction ds as [\|d r IH]; cbn [val maxv length]; [lia\|]. destruct d; cbn [dv]; lia. Qed.
		98	Lemma val_inj ds: forall ds', length ds' = length ds -> val ds' = val ds -> ds' = ds.
		99	Proof.
		100	induction ds as [\|d r IH]; intros [\|d' r'] E1 E2; cbn [length val] in *; try discriminate; auto.
		101	assert (d' = d /\ val r' = val r) as [-> E3].
		102	{ destruct d, d'; cbn [dv] in E2; try (exfalso; lia); split; auto; lia. }
		103	f_equal. apply IH; auto.
		104	Qed.
		106	Lemma inc_some ds: (val ds < maxv (length ds))%Z -> exists ds', inc ds = Some ds'.
		107	Proof.
		108	induction ds as [\|d r IH]; cbn [val maxv length]; [lia\|]. intros Hl.
		109	destruct d; cbn [inc]; eauto.
		110	destruct IH as [r' ->]; [cbn [dv] in Hl; lia\|]. eauto.
		111	Qed.
		113	Lemma inc_val ds: forall ds', inc ds = Some ds' -> length ds' = length ds /\ val ds' = (val ds + 1)%Z.
		114	Proof.
		115	induction ds as [\|d r IH]; intros ds' E; [discriminate\|].
		116	destruct d; cbn [inc] in E.
		117	- injection E as <-. cbn [length val dv]. split; [reflexivity\|lia].
		118	- injection E as <-. cbn [length val dv]. split; [reflexivity\|lia].
		119	- injection E as <-. cbn [length val dv]. split; [reflexivity\|lia].
		120	- destruct (inc r) as [r'\|] eqn:E2; [\|discriminate]. injection E as <-.
		121	destruct (IH r' eq_refl) as [L V]. cbn [length val dv]. split; [congruence\|lia].
		122	Qed.
		124	Lemma rounds n: forall ds ds' H b c, length ds' = length ds -> val ds' = (val ds + Z.of_nat n)%Z ->
		125	K (cells ds > H) (n + b) c --> K (cells ds' *> H) b (n + c).
		126	Proof.
		127	induction n as [\|n IH]; intros ds ds' H b c E1 E2.
		128	- assert (ds' = ds) by (apply val_inj; auto; lia). subst. apply evstep_refl.
		129	- assert (Hlt: (val ds < maxv (length ds))%Z).
		130	{ pose proof (val_le_maxv ds') as M. rewrite E1 in M. lia. }
		131	destruct (inc_some ds Hlt) as [ds1 Ei].
		132	destruct (inc_val ds ds1 Ei) as [L1 V1].
		133	eapply evstep_trans. { apply progress_evstep. apply (round_inc ds ds1 H (n + b) c Ei). }
		134	replace (S n + c) with (n + S c) by lia.
		135	apply IH; lia.
		136	Qed.
		138	(** digit-wise addition of k >= 0 to a balanced base-4 word (no carry out) *)
		139	Definition dg_of_mod (t:Z) : dg :=
		140	if Z.eqb (t mod 4) 0 then D0 else if Z.eqb (t mod 4) 1 then D1 else if Z.eqb (t mod 4) 2 then D2 else Dm.
		141	Lemma dg_of_mod_spec t: (4 * ((t - dv (dg_of_mod t)) / 4) = t - dv (dg_of_mod t))%Z.
		142	Proof.
		143	unfold dg_of_mod.
		144	destruct (Z.eqb_spec (t mod 4) 0); [cbn [dv]; Z.div_mod_to_equations; lia\|].
		145	destruct (Z.eqb_spec (t mod 4) 1); [cbn [dv]; Z.div_mod_to_equations; lia\|].
		146	destruct (Z.eqb_spec (t mod 4) 2); [cbn [dv]; Z.div_mod_to_equations; lia\|].
		147	cbn [dv]. Z.div_mod_to_equations; lia.
		148	Qed.
		150	Fixpoint addn (ds:list dg) (k:Z) : option (list dg) :=
		151	if Z.eqb k 0 then Some ds else
		152	match ds with
		153	\| [] => None
		154	\| d::r =>
		155	let t := (dv d + k)%Z in
		156	let e := dg_of_mod t in
		157	match addn r ((t - dv e) / 4)%Z with Some r' => Some (e::r') \| None => None end
17	end.	158	end.
19	Definition next p := match p with
		160	Lemma addn_spec ds: forall k ds', addn ds k = Some ds' -> length ds' = length ds /\ val ds' = (val ds + k)%Z.
20	\| D0=>D1 \| D1=>D2 \| D2=>D3 \| D3=>D4 \| D4=>D5 \| D5=>D0 end.
21	Definition take p : nat := match p with D1 \| D3=>1 \| _=>0 end.
⋯ 15 template-only lines (template 22–39), not in ours
40	forall k, segRLs tm (h^^t) (h^^u)
41	(W^^k ++ word p ++ W^^b) (W^^(k+a) ++ word q ++ W^^c).
42	Proof.	161	Proof.
43	intros H k. rewrite lpow_add, <-app_assoc.
		162	induction ds as [\|d r IH]; intros k ds' E; cbn [addn] in E.
44	eapply segRLs_concat; [apply walls\|exact H].
		163	- destruct (Z.eqb_spec k 0); [\|discriminate]. injection E as <-. cbn. lia.
		164	- destruct (Z.eqb_spec k 0) as [->\|Hk].
		165	{ injection E as <-. split; [reflexivity\|lia]. }
		166	destruct (addn r _) as [r'\|] eqn:E2; [\|discriminate]. injection E as <-.
		167	destruct (IH _ _ E2) as [L V]. cbn [length val]. split; [congruence\|].
		168	rewrite V. pose proof (dg_of_mod_spec (dv d + k)). lia.
45	Qed.	169	Qed.
47	Record effect := Eff { phase : digit; used : nat; given : nat; sent : nat }.
		171	(** * Run-length sides and the macro simulator *)
48	Fixpoint total (p:digit) (t:nat) : effect :=
		172	Definition seqb (a b:Sym) : bool := match a, b with S0, S0 => true \| S1, S1 => true \| _, _ => false end.
49	match t with
		173	Lemma seqb_eq a b: seqb a b = true -> a = b.
50	\| O => Eff p 0 0 0
		174	Proof. destruct a, b; cbn; congruence. Qed.
51	\| S t => let a := total (next p) t in
		175	Fixpoint lsym_eqb (u v:list Sym) : bool := match u, v with
52	Eff (phase a) (take p+used a) (give p+given a) (carry p+sent a)
		176	\| [], [] => true \| x::u', y::v' => if seqb x y then lsym_eqb u' v' else false \| _, _ => false end.
		177	Lemma lsym_eqb_eq u: forall v, lsym_eqb u v = true -> u = v.
		178	Proof.
		179	induction u as [\|x u IH]; intros [\|y v]; cbn; try congruence.
		180	destruct (seqb x y) eqn:H1; [\|discriminate]. intros H2.
		181	apply seqb_eq in H1. apply IH in H2. subst. reflexivity.
		182	Qed.
		183	Definition qeqb (a b:Q) : bool := match a, b with
		184	\| A, A => true \| B, B => true \| C, C => true \| D, D => true \| E, E => true \| F, F => true \| _, _ => false end.
		185	Lemma qeqb_eq a b: qeqb a b = true -> a = b.
		186	Proof. destruct a, b; cbn; congruence. Qed.
		188	Definition sd := list (list Sym * N).
		189	Fixpoint sdn (s:sd) : side := match s with [] => const S0 \| (u,n)::s' => u ^^ (N.to_nat n) *> sdn s' end.
		191	Lemma lpow_nil {T} n: ([]:list T)^^n = [].
		192	Proof. induction n; cbn; auto. Qed.
		193	Lemma lpow1 (u:list Sym) r: u ^^ 1 > r = u > r.
		194	Proof. cbn [lpow]. rewrite app_nil_r. reflexivity. Qed.
		195	Lemma lpow_rot (z:Sym) u1 m: (z::u1)^^(S m) = z :: ((u1 ++ [z])^^m ++ u1).
		196	Proof.
		197	change ((z::u1)^^(S m)) with ((z::u1) ++ (z::u1)^^m). rewrite <-lpow_shift.
		198	rewrite lpow_rotate_list. reflexivity.
		199	Qed.
		201	Definition consr (u:list Sym) (rest:sd) : sd := match u with [] => rest \| _ => (u,1%N)::rest end.
		202	Lemma consr_spec u rest: sdn (consr u rest) = u *> sdn rest.
		203	Proof. destruct u; [reflexivity\|]. cbn [consr sdn]. apply lpow1. Qed.
		205	Definition pop_run (z:Sym) (u1:list Sym) (n:N) (rest:sd) : Sym * sd :=
		206	if N.eqb n 1 then (z, consr u1 rest) else (z, (u1 ++ [z], N.pred n) :: consr u1 rest).
		207	Fixpoint pop (s:sd) : Sym * sd := match s with
		208	\| [] => (S0, [])
		209	\| (u,n)::rest => match u with
		210	\| [] => pop rest
		211	\| z::u1 => if N.eqb n 0 then pop rest else pop_run z u1 n rest end end.
		213	Lemma pop_spec s: forall z s', pop s = (z, s') -> sdn s = z >> sdn s'.
		214	Proof.
		215	induction s as [\|[u n] s IH]; intros z s' E; cbn [pop] in E.
		216	- injection E as <- <-. apply const_unfold.
		217	- destruct u as [\|z0 u1].
		218	+ cbn [sdn]. rewrite lpow_nil. apply IH, E.
		219	+ destruct (N.eqb_spec n 0) as [->\|Hn].
		220	* cbn [sdn N.to_nat lpow Str_app]. apply IH, E.
		221	* unfold pop_run in E. cbn [sdn].
		222	destruct (N.eqb_spec n 1) as [->\|Hn1]; injection E as <- <-.
		223	-- rewrite lpow1. rewrite consr_spec. reflexivity.
		224	-- replace (N.to_nat n) with (S (N.to_nat (N.pred n))) by lia.
		225	rewrite lpow_rot. cbn [Str_app sdn]. rewrite consr_spec, Str_app_assoc. reflexivity.
		226	Qed.
		228	Definition allz (u:list Sym) : bool := forallb (fun x => seqb x S0) u.
		229	Lemma allz_spec u: allz u = true -> u *> const S0 = const S0.
		230	Proof.
		231	induction u as [\|x u IH]; cbn; [reflexivity\|]. intros H; apply andb_prop in H as [H1 H2].
		232	apply seqb_eq in H1; subst. rewrite IH by exact H2. symmetry. apply const_unfold.
		233	Qed.
		235	Definition push_block (s:sd) (u:list Sym) (n:N) : sd := match s with
		236	\| [] => if allz u then [] else [(u,n)]
		237	\| (v,m)::rest => if lsym_eqb u v then (v, (n+m)%N)::rest else (u,n)::s end.
		238	Lemma push_block_spec s u n: sdn (push_block s u n) = u^^(N.to_nat n) *> sdn s.
		239	Proof.
		240	destruct s as [\|[v m] rest]; cbn [push_block].
		241	- destruct (allz u) eqn:H; cbn [sdn]; [\|reflexivity]. rewrite lpow_all0; [reflexivity\|]. apply allz_spec, H.
		242	- destruct (lsym_eqb u v) eqn:H; [\|reflexivity]. apply lsym_eqb_eq in H; subst. cbn [sdn].
		243	rewrite N2Nat.inj_add, lpow_add, Str_app_assoc. reflexivity.
		244	Qed.
		246	(* three singletons followed by a run of their block, or six singletons forming a block twice, become a run *)
		247	Definition fold6 (a b c:Sym) (rest s:sd) : sd := match rest with
		248	\| ([d],n4)::([e],n5)::([f],n6)::rest' =>
		249	if N.eqb n4 1 then if N.eqb n5 1 then if N.eqb n6 1 then
		250	if lsym_eqb [a;b;c] [d;e;f] then if seqb a b then if seqb b c then s else ([a;b;c], 2%N)::rest'
		251	else ([a;b;c], 2%N)::rest' else s else s else s else s
		252	\| _ => s end.
		253	Definition fold3 (s:sd) : sd := match s with
		254	\| ([a],n1)::([b],n2)::([c],n3)::rest =>
		255	if N.eqb n1 1 then if N.eqb n2 1 then if N.eqb n3 1 then
		256	match rest with
		257	\| (v,m)::rest' => if lsym_eqb [a;b;c] v then ([a;b;c], N.succ m)::rest' else fold6 a b c rest s
		258	\| [] => s end
		259	else s else s else s
		260	\| _ => s end.
		262	Lemma fold6_spec a b c rest s: sdn s = a >> b >> c >> sdn rest -> sdn (fold6 a b c rest s) = sdn s.
		263	Proof.
		264	intros Hs. unfold fold6.
		265	destruct rest as [\|[[\|d [\|]] n4] rest]; try reflexivity.
		266	destruct rest as [\|[[\|e [\|]] n5] rest]; try reflexivity.
		267	destruct rest as [\|[[\|f [\|]] n6] rest]; try reflexivity.
		268	destruct (N.eqb_spec n4 1); try reflexivity. destruct (N.eqb_spec n5 1); try reflexivity.
		269	destruct (N.eqb_spec n6 1); try reflexivity. subst.
		270	destruct (lsym_eqb [a;b;c] [d;e;f]) eqn:H; try reflexivity. apply lsym_eqb_eq in H. injection H as <- <- <-.
		271	assert (G: sdn (([a;b;c], 2%N)::rest) = sdn s).
		272	{ rewrite Hs. reflexivity. }
		273	destruct (seqb a b); [destruct (seqb b c)\|]; try reflexivity; exact G.
		274	Qed.
		276	Lemma fold3_spec s: sdn (fold3 s) = sdn s.
		277	Proof.
		278	unfold fold3.
		279	destruct s as [\|[[\|a [\|]] n1] s]; try reflexivity.
		280	destruct s as [\|[[\|b [\|]] n2] s]; try reflexivity.
		281	destruct s as [\|[[\|c [\|]] n3] s]; try reflexivity.
		282	destruct (N.eqb_spec n1 1); try reflexivity. destruct (N.eqb_spec n2 1); try reflexivity.
		283	destruct (N.eqb_spec n3 1); try reflexivity. subst.
		284	destruct s as [\|[v m] s]; try reflexivity.
		285	destruct (lsym_eqb [a;b;c] v) eqn:H.
		286	- apply lsym_eqb_eq in H. subst. cbn [sdn]. rewrite N2Nat.inj_succ. reflexivity.
		287	- apply fold6_spec. reflexivity.
		288	Qed.
		290	Definition push (s:sd) (x:Sym) : sd := fold3 (push_block s [x] 1%N).
		291	Lemma push_spec s x: sdn (push s x) = x >> sdn s.
		292	Proof. unfold push. rewrite fold3_spec, push_block_spec. reflexivity. Qed.
		294	Fixpoint take (k:nat) (s:sd) : list Sym * sd := match k with
		295	\| O => ([], s)
		296	\| S k' => let (z, s1) := pop s in let (zs, s2) := take k' s1 in (z::zs, s2) end.
		297	Lemma take_spec k: forall s zs s', take k s = (zs, s') -> sdn s = zs *> sdn s'.
		298	Proof.
		299	induction k as [\|k IH]; intros s zs s' E; cbn [take] in E.
		300	- injection E as <- <-. reflexivity.
		301	- destruct (pop s) as [z s1] eqn:E1. destruct (take k s1) as [zs1 s2] eqn:E2. injection E as <- <-.
		302	rewrite (pop_spec _ _ _ E1), (IH _ _ _ E2). reflexivity.
		303	Qed.
		305	(* pop one whole 3-cell block if the first run has one, else three cells *)
		306	Definition pop3 (s:sd) : list Sym * sd := match s with
		307	\| (u, n)::rest => if Nat.eqb (length u) 3 then if N.leb 1 n then
		308	(u, if N.eqb n 1 then rest else (u, N.pred n)::rest) else take 3 s else take 3 s
		309	\| [] => take 3 s end.
		310	Lemma pop3_spec s cs s': pop3 s = (cs, s') -> sdn s = cs *> sdn s'.
		311	Proof.
		312	destruct s as [\|[u n] rest]; cbn [pop3]; [apply take_spec\|].
		313	destruct (Nat.eqb (length u) 3); [\|apply take_spec].
		314	destruct (N.leb_spec 1 n); [\|apply take_spec].
		315	intros E; injection E as <- <-. cbn [sdn].
		316	destruct (N.eqb_spec n 1) as [->\|Hn]; [apply lpow1\|].
		317	cbn [sdn]. replace (N.to_nat n) with (S (N.to_nat (N.pred n))) by lia.
		318	cbn [lpow]. rewrite Str_app_assoc. reflexivity.
		319	Qed.
		321	(* window simulation; fl = true mirrors the moves; wl = cells behind the head (nearest first), wr = cells ahead *)
		322	Fixpoint wsim (fuel:nat) (q:Q) (wl:list Sym) (h:Sym) (wr:list Sym) (fl:bool) : option (Q * list Sym) :=
		323	match fuel with O => None \| S f =>
		324	match tm (q, h) with
		325	\| None => None
		326	\| Some (y, d, q') =>
		327	if (match d with R => negb fl \| L => fl end) then
		328	match wr with [] => Some (q', y::wl) \| z::wr' => wsim f q' (y::wl) z wr' fl end
		329	else match wl with [] => None \| z::wl' => wsim f q' wl' z (y::wr) fl end
		330	end end.
		332	Definition wden (fl:bool) (q:Q) (wl:list Sym) (h:Sym) (wr:list Sym) (bk fw:side) : Q * tape :=
		333	if fl then (q, (wr > fw, h, wl > bk)) else (q, (wl > bk, h, wr > fw)).
		334	Definition wout (fl:bool) (q:Q) (out:list Sym) (bk fw:side) : Q * tape :=
		335	if fl then fw <{{q}} out > bk else (out > bk) {{q}}> fw.
		337	Lemma wsim_spec fuel: forall q wl h wr fl q' out, wsim fuel q wl h wr fl = Some (q', out) ->
		338	forall bk fw, wden fl q wl h wr bk fw -->* wout fl q' out bk fw.
		339	Proof.
		340	induction fuel as [\|f IH]; intros q wl h wr fl q' out E bk fw; cbn [wsim] in E; [discriminate\|].
		341	destruct (tm (q, h)) as [[[y d] q1]\|] eqn:T; [\|discriminate].
		342	destruct d, fl; cbn in E; cbn [wden wout].
		343	- destruct wr as [\|z wr'].
		344	+ injection E as <- <-. eapply evstep_step. 1: eapply (step_left T). cbn. apply evstep_refl.
		345	+ eapply evstep_step. 1: eapply (step_left T). cbn. apply (IH _ _ _ _ true _ _ E bk fw).
		346	- destruct wl as [\|z wl']; [discriminate\|].
		347	eapply evstep_step. 1: eapply (step_left T). cbn. apply (IH _ _ _ _ false _ _ E bk fw).
		348	- destruct wl as [\|z wl']; [discriminate\|].
		349	eapply evstep_step. 1: eapply (step_right T). cbn. apply (IH _ _ _ _ true _ _ E bk fw).
		350	- destruct wr as [\|z wr'].
		351	+ injection E as <- <-. eapply evstep_step. 1: eapply (step_right T). cbn. apply evstep_refl.
		352	+ eapply evstep_step. 1: eapply (step_right T). cbn. apply (IH _ _ _ _ false _ _ E bk fw).
		353	Qed.
		355	Definition try_k (k:nat) (q:Q) (sa:sd) (x:list Sym) (fl:bool) : option (list Sym * list Sym * sd) :=
		356	let (dc, sa2) := take k sa in
		357	match x with [] => None \| h::xr =>
		358	match wsim 64 q dc h xr fl with
		359	\| Some (q', out) => if qeqb q' q then if lsym_eqb (firstn k out) dc then Some (dc, skipn k out, sa2) else None else None
		360	\| None => None end end.
		362	Definition rule_ok (fl:bool) (q:Q) (x dc x2:list Sym) : Prop :=
		363	if fl then forall l r, l <* x <{{q}} dc > r --> l <{{q}} dc > x2 > r
		364	else forall l r, l <* dc {{q}}> x > r --> l <* x2 <* dc {{q}}> r.
		366	Lemma try_k_spec k q sa x fl dc x2 sa2: try_k k q sa x fl = Some (dc, x2, sa2) ->
		367	sdn sa = dc *> sdn sa2 /\ rule_ok fl q x dc x2.
		368	Proof.
		369	unfold try_k. destruct (take k sa) as [dc0 sa0] eqn:Et.
		370	destruct x as [\|h xr]; [discriminate\|].
		371	destruct (wsim 64 q dc0 h xr fl) as [[q' out]\|] eqn:Ew; [\|discriminate].
		372	destruct (qeqb q' q) eqn:Eq; [\|discriminate]. apply qeqb_eq in Eq. subst q'.
		373	destruct (lsym_eqb (firstn k out) dc0) eqn:El; [\|discriminate]. apply lsym_eqb_eq in El.
		374	intros E; injection E as <- <- <-. split; [apply (take_spec _ _ _ _ Et)\|].
		375	pose proof (wsim_spec _ _ _ _ _ _ _ _ Ew) as W.
		376	assert (Ho: out = dc0 ++ skipn k out) by (rewrite <-El; symmetry; apply firstn_skipn).
		377	destruct fl; unfold rule_ok; intros l r.
		378	- specialize (W r l). unfold wden, wout in W. rewrite Ho, Str_app_assoc in W. exact W.
		379	- specialize (W l r). unfold wden, wout in W. rewrite Ho, Str_app_assoc in W. exact W.
		380	Qed.
		382	Definition try3 q sa x fl : option (list Sym * list Sym * sd) :=
		383	match try_k 0 q sa x fl with Some r => Some r \| None =>
		384	match try_k 1 q sa x fl with Some r => Some r \| None => try_k 2 q sa x fl end end.
		385	Lemma try3_spec q sa x fl dc x2 sa2: try3 q sa x fl = Some (dc, x2, sa2) ->
		386	sdn sa = dc *> sdn sa2 /\ rule_ok fl q x dc x2.
		387	Proof.
		388	unfold try3. destruct (try_k 0 q sa x fl) eqn:E0; [intros Ex; injection Ex as ->; exact (try_k_spec _ _ _ _ _ _ _ _ E0)\|].
		389	destruct (try_k 1 q sa x fl) eqn:E1; [intros Ex; injection Ex as ->; exact (try_k_spec _ _ _ _ _ _ _ _ E1)\|].
		390	apply try_k_spec.
		391	Qed.
		393	Fixpoint pushl (dc:list Sym) (s:sd) : sd := match dc with [] => s \| c::dc' => push_block (pushl dc' s) [c] 1%N end.
		394	Lemma pushl_spec dc s: sdn (pushl dc s) = dc *> sdn s.
		395	Proof. induction dc as [\|c dc IH]; cbn [pushl]; [reflexivity\|]. rewrite push_block_spec, IH. reflexivity. Qed.
		397	Inductive dn := DL \| DR.
		398	Definition cfg := (Q * sd * sd * dn)%type.
		399	Definition cdn (c:cfg) : Q * tape := let '(q, Ls, Rs, d) := c in
		400	match d with DR => sdn Ls {{q}}> sdn Rs \| DL => sdn Ls <{{q}} sdn Rs end.
		402	Definition try_rule (c:cfg) : option cfg :=
		403	let '(q, Ls, Rs, d) := c in
		404	match d with
		405	\| DR => match Rs with [] => None \| (x,n)::rest =>
		406	if N.leb 2 n then if Nat.leb 2 (length x) then
		407	match try3 q Ls x false with Some (dc, x2, L2) => Some (q, pushl dc (push_block L2 x2 n), rest, DR) \| None => None end
		408	else None else None end
		409	\| DL => match Ls with [] => None \| (x,n)::rest =>
		410	if N.leb 2 n then if Nat.leb 2 (length x) then
		411	match try3 q Rs x true with Some (dc, x2, R2) => Some (q, rest, pushl dc (push_block R2 x2 n), DL) \| None => None end
		412	else None else None end
53	end.	413	end.
55	Lemma total_spec t p n :
		415	Lemma try_rule_spec c c': try_rule c = Some c' -> cdn c -->* cdn c'.
56	let a := total p t in
57	segRLs tm (h^^t) (h^^sent a) (word p ++ W^^(used a+n))
58	(W^^given a ++ word (phase a) ++ W^^n).
59	Proof.	416	Proof.
60	gen p n. induction t; intros p n; cbn [total phase used given sent].
		417	destruct c as [[[q Ls] Rs] d]. destruct d; cbn [try_rule].
61	- constructor.
		418	- destruct Ls as [\|[x n] rest]; [discriminate\|].
62	- cbn [lpow]. rewrite <-Nat.add_assoc.
		419	destruct (N.leb 2 n); [\|discriminate]. destruct (Nat.leb 2 (length x)); [\|discriminate].
63	rewrite (lpow_add _ (carry p)).
		420	destruct (try3 q Rs x true) as [[[dc x2] R2]\|] eqn:Et; [\|discriminate].
64	eapply segRLs_trans.
		421	intros E; injection E as <-. apply try3_spec in Et as [Hs Hr].
65	+ apply one.
		422	cbn [cdn sdn]. rewrite Hs, pushl_spec, push_block_spec.
66	+ apply prefix_rule, IHt.
		423	apply (shift_rule_L dc tm x x2 q Hr).
		424	- destruct Rs as [\|[x n] rest]; [discriminate\|].
		425	destruct (N.leb 2 n); [\|discriminate]. destruct (Nat.leb 2 (length x)); [\|discriminate].
		426	destruct (try3 q Ls x false) as [[[dc x2] L2]\|] eqn:Et; [\|discriminate].
		427	intros E; injection E as <-. apply try3_spec in Et as [Hs Hr].
		428	cbn [cdn sdn]. rewrite Hs, pushl_spec, push_block_spec.
		429	apply (shift_rule_R dc tm x x2 q Hr).
67	Qed.	430	Qed.
68	End Counter.
		432	Inductive mres := MOk (c:cfg) \| MHalt.
70	Lemma total_add p t u :
		433	Definition single (c:cfg) : mres :=
71	total p (t+u) =
		434	let '(q, Ls, Rs, d) := c in
72	let a := total p t in let b := total (phase a) u in
		435	match d with
73	Eff (phase b) (used a+used b) (given a+given b) (sent a+sent b).
		436	\| DR => let (z, Rs') := pop Rs in
		437	match tm (q, z) with None => MHalt
		438	\| Some (y, R, q') => MOk (q', push Ls y, Rs', DR)
		439	\| Some (y, L, q') => MOk (q', Ls, push Rs' y, DL) end
		440	\| DL => let (z, Ls') := pop Ls in
		441	match tm (q, z) with None => MHalt
		442	\| Some (y, L, q') => MOk (q', Ls', push Rs y, DL)
		443	\| Some (y, R, q') => MOk (q', push Ls' y, Rs, DR) end
		444	end.
		445	Definition mstep (c:cfg) : mres := match try_rule c with Some c' => MOk c' \| None => single c end.
		446	Definition mok (c:cfg) (r:mres) : Prop := match r with MOk c' => cdn c -->* cdn c' \| MHalt => halts tm (cdn c) end.
		448	Lemma single_spec c: mok c (single c).
74	Proof.	449	Proof.
75	gen p. induction t; intros p; cbn [Nat.add total phase used given sent].
		450	destruct c as [[[q Ls] Rs] d]. destruct d; cbn [single].
76	- destruct (total p u); reflexivity.
		451	- destruct (pop Ls) as [z Ls'] eqn:Ep. apply pop_spec in Ep.
77	- rewrite IHt. cbn. f_equal; lia.
		452	destruct (tm (q, z)) as [[[y [\|]] q']\|] eqn:T; cbn [mok cdn]; rewrite Ep.
		453	+ eapply evstep_step. 1: eapply (step_left T). cbn. rewrite push_spec. apply evstep_refl.
		454	+ eapply evstep_step. 1: eapply (step_right T). cbn. rewrite push_spec. apply evstep_refl.
		455	+ apply halted_halts. exact T.
		456	- destruct (pop Rs) as [z Rs'] eqn:Ep. apply pop_spec in Ep.
		457	destruct (tm (q, z)) as [[[y [\|]] q']\|] eqn:T; cbn [mok cdn]; rewrite Ep.
		458	+ eapply evstep_step. 1: eapply (step_left T). cbn. rewrite push_spec. apply evstep_refl.
		459	+ eapply evstep_step. 1: eapply (step_right T). cbn. rewrite push_spec. apply evstep_refl.
		460	+ apply halted_halts. exact T.
78	Qed.	461	Qed.
80	Lemma total_six p : total p 6 = Eff p 2 3 1.
		463	Lemma mstep_spec c: mok c (mstep c).
81	Proof. destruct p; reflexivity. Qed.
83	Lemma total_period p k r :
84	total p (k*6+r) = let a := total p r in
85	Eff (phase a) (k2+used a) (k3+given a) (k+sent a).
86	Proof.	464	Proof.
87	induction k; [cbn [Nat.mul Nat.add]; destruct (total p r); reflexivity\|].
		465	unfold mstep. destruct (try_rule c) eqn:E; [apply try_rule_spec, E\|apply single_spec].
88	replace (S k6+r) with (6+(k6+r)) by lia.
89	rewrite total_add,total_six. cbn [phase used given sent].
90	rewrite IHk. cbn. f_equal; lia.
91	Qed.	466	Qed.
93	Record effectN := EffN { phaseN : digit; usedN : N; givenN : N; sentN : N }.
		468	(** * K-forms *)
94	Definition denote_effect a :=
		469	Definition B001 : list Sym := [S0;S0;S1].
95	Eff (phaseN a) (N.to_nat (usedN a)) (N.to_nat (givenN a)) (N.to_nat (sentN a)).
		470	Fixpoint eat001 (fuel:nat) (s:sd) : N * sd := match fuel with O => (0%N, s) \| S f =>
96	Definition totalN p t : effectN :=
		471	match s with
97	let k := (t/6)%N in
		472	\| [] => (0%N, s)
98	let a := total p (N.to_nat (t mod 6)) in
		473	\| (u, n)::rest => if lsym_eqb u B001 then let (m, s') := eat001 f rest in ((n+m)%N, s') else
99	EffN (phase a) (k*2+N.of_nat (used a))
		474	let (cs, s1) := pop3 s in
100	(k*3+N.of_nat (given a)) (k+N.of_nat (sent a)).
		475	if lsym_eqb cs B001 then let (m, s') := eat001 f s1 in (N.succ m, s') else (0%N, s)
102	Lemma totalN_spec p t : denote_effect (totalN p t) = total p (N.to_nat t).
		476	end end.
		477	Lemma eat001_spec fuel: forall s m s', eat001 fuel s = (m, s') -> sdn s = B001^^(N.to_nat m) *> sdn s'.
103	Proof.	478	Proof.
104	unfold totalN,denote_effect; cbn [phaseN usedN givenN sentN].
		479	induction fuel as [\|f IH]; intros s m s' E; cbn [eat001] in E.
105	rewrite !N2Nat.inj_add, !N2Nat.inj_mul, !Nat2N.id.
		480	- injection E as <- <-. reflexivity.
106	replace (N.to_nat t) with (N.to_nat (t/6)*6+N.to_nat (t mod 6)).
		481	- destruct s as [\|[u n] rest]; [injection E as <- <-; reflexivity\|].
107	- apply eq_sym, total_period.
		482	destruct (lsym_eqb u B001) eqn:Eu.
108	- pose proof (N.div_mod t 6 ltac:(lia)). nia.
		483	+ apply lsym_eqb_eq in Eu. subst u. destruct (eat001 f rest) as [m1 s1] eqn:E1. injection E as <- <-.
		484	cbn [sdn]. rewrite (IH _ _ _ E1), N2Nat.inj_add, lpow_add, Str_app_assoc. reflexivity.
		485	+ destruct (pop3 ((u, n) :: rest)) as [cs s1] eqn:E3.
		486	destruct (lsym_eqb cs B001) eqn:Ec; [\|injection E as <- <-; reflexivity].
		487	apply lsym_eqb_eq in Ec. subst cs. destruct (eat001 f s1) as [m1 s2] eqn:E1. injection E as <- <-.
		488	rewrite (pop3_spec _ _ _ E3), (IH _ _ _ E1), N2Nat.inj_succ. reflexivity.
109	Qed.	489	Qed.
111	Definition cells := list (digit*N).
		491	Fixpoint allzero (s:sd) : bool := match s with [] => true \| (u,_)::r => if allz u then allzero r else false end.
112	Fixpoint cell_word (xs:cells) : list Sym := match xs with
		492	Lemma allzero_spec s: allzero s = true -> sdn s = const S0.
113	\| [] => []
		493	Proof.
114	\| (p,n)::xs => word p ++ W^^N.to_nat n ++ cell_word xs
		494	induction s as [\|[u n] r IH]; cbn; [reflexivity\|].
		495	destruct (allz u) eqn:H; [\|discriminate]. intros H2. rewrite IH by exact H2.
		496	apply lpow_all0, allz_spec, H.
		497	Qed.
		499	Definition isK (c:cfg) : option (sd * N * N) :=
		500	let '(q, Ls, Rs, d) := c in
		501	match d with DL => None \| DR =>
		502	if qeqb q E then
		503	let (y, L1) := pop Ls in
		504	if seqb y S0 then
		505	let (h3, R1) := pop3 Rs in
		506	if lsym_eqb h3 [S1;S0;S1] then
		507	let (b, R2) := eat001 100 R1 in
		508	let (g4, R3) := take 4 R2 in
		509	if lsym_eqb g4 [S0;S0;S0;S1] then
		510	let (cc, R4) := eat001 100 R3 in
		511	if allzero R4 then Some (L1, b, cc) else None
		512	else None else None else None else None end.
		514	Lemma isK_spec c w b cc: isK c = Some (w, b, cc) -> cdn c = K (sdn w) (N.to_nat b) (N.to_nat cc).
		515	Proof.
		516	destruct c as [[[q Ls] Rs] d]. destruct d; cbn [isK]; [discriminate\|].
		517	destruct (qeqb q E) eqn:Eq; [\|discriminate]. apply qeqb_eq in Eq. subst q.
		518	destruct (pop Ls) as [y L1] eqn:Ep. destruct (seqb y S0) eqn:Ey; [\|discriminate]. apply seqb_eq in Ey. subst y.
		519	destruct (pop3 Rs) as [h3 R1] eqn:E3. destruct (lsym_eqb h3 [S1;S0;S1]) eqn:Eh; [\|discriminate].
		520	apply lsym_eqb_eq in Eh. subst h3.
		521	destruct (eat001 100 R1) as [b1 R2] eqn:Eb. destruct (take 4 R2) as [g4 R3] eqn:Eg.
		522	destruct (lsym_eqb g4 [S0;S0;S0;S1]) eqn:Eg4; [\|discriminate]. apply lsym_eqb_eq in Eg4. subst g4.
		523	destruct (eat001 100 R3) as [c1 R4] eqn:Ec. destruct (allzero R4) eqn:Ez; [\|discriminate].
		524	intros E; injection E as <- <- <-.
		525	cbn [cdn]. unfold K, bellw.
		526	rewrite (pop_spec _ _ _ Ep), (pop3_spec _ _ _ E3), (eat001_spec _ _ _ _ Eb), (take_spec _ _ _ _ Eg),
		527	(eat001_spec _ _ _ _ Ec), (allzero_spec _ Ez).
		528	rewrite !Str_app_assoc. reflexivity.
		529	Qed.
		531	(** * Running to the next K-form *)
		532	Inductive res := Halt \| Kf (w:sd) (b c:N) \| Fuel (c:cfg).
		533	Definition step1 (bmin:N) (c:cfg) : res := match mstep c with
		534	\| MHalt => Halt
		535	\| MOk c' => match isK c' with Some (w, b, cc) => if N.leb bmin b then Kf w b cc else Fuel c' \| None => Fuel c' end end.
		536	Fixpoint urun (bmin:N) (p:positive) (c:cfg) : res := match p with
		537	\| xH => step1 bmin c
		538	\| xO p' => match urun bmin p' c with Fuel c' => urun bmin p' c' \| x => x end
		539	\| xI p' => match step1 bmin c with Fuel c' => match urun bmin p' c' with Fuel c'' => urun bmin p' c'' \| x => x end \| x => x end
115	end.	540	end.
117	Fixpoint batch (t:N) (xs:cells) : option (N*cells) :=
		541	Definition rok (c:cfg) (r:res) : Prop := match r with
118	match xs with
		542	\| Halt => halts tm (cdn c)
119	\| [] => if (t=?0)%N then Some (0%N,[]) else None
		543	\| Kf w b cc => cdn c -->* K (sdn w) (N.to_nat b) (N.to_nat cc)
120	\| (p,n)::xs =>
		544	\| Fuel c' => cdn c -->* cdn c' end.
121	let a := totalN p t in
		546	Lemma rok_trans c c' r: cdn c -->* cdn c' -> rok c' r -> rok c r.
122	if (usedN a<=?n)%N then
123	match batch (sentN a) xs with
⋯ 16 template-only lines (template 124–141), not in ours
142	(W^^N.to_nat (givenN (totalN p t)) ++ word (phaseN (totalN p t)) ++
143	W^^N.to_nat (n-usedN (totalN p t))).
144	Proof.	547	Proof.
145	intros H.
		548	intros H1 H2. destruct r; cbn [rok] in *.
146	pose proof (total_spec tm h wall one (N.to_nat t) p
		549	- eapply halts_evstep; eauto.
147	(N.to_nat (n-usedN (totalN p t)))) as I.
		550	- eapply evstep_trans; eauto.
148	rewrite <-totalN_spec in I. cbn [denote_effect phase used given sent] in I.
		551	- eapply evstep_trans; eauto.
149	applys_eq I; flia.
150	Qed.	552	Qed.
152	Lemma batch_spec t xs e ys :
		554	Lemma step1_spec bmin c: rok c (step1 bmin c).
153	batch t xs = Some (e,ys) ->
154	segRLs tm (h^^N.to_nat t) [] (cell_word xs)
155	(W^^N.to_nat e ++ cell_word ys).
156	Proof.	555	Proof.
157	gen t e ys. induction xs as [\|[p n] xs IH]; intros t e ys H; cbn [batch] in H.
		556	unfold step1. pose proof (mstep_spec c) as M. destruct (mstep c) as [c'\|]; cbn [mok] in M; [\|exact M].
158	- destruct (N.eqb_spec t 0); inverts H. subst t. constructor.
		557	destruct (isK c') as [[[w b] cc]\|] eqn:Ek; [\|exact M].
159	- destruct (N.leb_spec (usedN (totalN p t)) n); try discriminate.
		558	destruct (N.leb bmin b); [\|exact M]. cbn [rok]. rewrite <-(isK_spec _ _ _ _ Ek). exact M.
160	destruct (batch (sentN (totalN p t)) xs) as [[e' ys']\|] eqn:E; inverts H.
161	specialize (IH _ _ _ E).
⋯ 6 template-only lines (template 162–167), not in ours
168	repeat rewrite app_assoc.
169	applys_eq (segRLs_concat I IH); repeat rewrite app_assoc; reflexivity.
170	Qed.	559	Qed.
171	End BatchCorrect.
		561	Lemma urun_spec bmin p: forall c, rok c (urun bmin p c).
173	Record scan := Scan { scan_q : Q; scan_dir : dir;
174	scan_in : list Sym; scan_out : list Sym; scan_context : list Sym }.
⋯ 16 template-only lines (template 175–192), not in ours
194	Lemma calls_spec t r r' : sideRLs tm ((head q)^^t) r r' ->
195	start q r -[tm]->* start q r'.
196	Proof.	562	Proof.
197	gen r r'. induction t; intros r r' H; cbn [lpow head app] in H.
		563	induction p as [p IH\|p IH\|]; intros c; cbn [urun].
198	- inverts H. constructor.
		564	- pose proof (step1_spec bmin c) as S1. destruct (step1 bmin c) as [\| \| c']; try exact S1.
199	- inverts H.
		565	pose proof (IH c') as S2. destruct (urun bmin p c') as [\| \| c'']; try exact (rok_trans _ _ _ S1 S2).
200	match goal with
		566	exact (rok_trans _ _ _ S1 (rok_trans _ _ _ S2 (IH c''))).
201	\| Hret : sideRL _ _ _ _ _ \|- _ => follow100 Hret
		567	- pose proof (IH c) as S1. destruct (urun bmin p c) as [\| \| c']; try exact S1.
202	end.
		568	exact (rok_trans _ _ _ S1 (IH c')).
203	follow emit. apply IHt; assumption.
		569	- apply step1_spec.
204	Qed.	570	Qed.
206	Hypothesis wall : forall n, segRLs tm (head q) (head q) (W^^n) (W^^n).
		572	(** * The checker *)
207	Hypothesis one : forall p n,
		573	Definition krec := (sd * N * N)%type.
208	segRLs tm (head q) ((head q)^^carry p) (word p ++ W^^(take p+n))
		574	Definition kden (k:krec) : Q * tape := let '(w, b, c) := k in K (sdn w) (N.to_nat b) (N.to_nat c).
209	(W^^give p ++ word (next p) ++ W^^n).
		575	Definition bellsd (b c:N) : sd := [([S1;S0;S1],1%N); (B001,b); ([S0;S0;S0;S1],1%N); (B001,c)].
211	Lemma batch_root t xs e ys k r : batch t xs=Some (e,ys) ->
		576	Definition kcfg (k:krec) : cfg := let '(w, b, c) := k in (E, push w S0, bellsd b c, DR).
212	start q (W^^N.to_nat k > cell_word xs > r) -[tm]->*
		577	Lemma kcfg_spec k: cdn (kcfg k) = kden k.
213	start q (W^^N.to_nat (k+e) > cell_word ys > r).
214	Proof.	578	Proof.
215	intros H. apply (calls_spec (N.to_nat t)).
		579	destruct k as [[w b] c]. cbn [kcfg cdn kden bellsd sdn]. rewrite push_spec.
216	rewrite N2Nat.inj_add,lpow_add,Str_app_assoc.
		580	unfold K, bellw. rewrite !lpow1, !Str_app_assoc. reflexivity.
217	eapply segRLs_sideRLs_concat; [apply walls,wall\|].
218	pose proof (segRLs_sideRLs_concat
219	(batch_spec tm (head q) wall one t xs e ys H) (sideRLseq_O tm r)) as I.
220	rewrite Str_app_assoc in I. exact I.
221	Qed.	581	Qed.
222	End RootCorrect.
		583	Definition dg_of (cs:list Sym) : option dg := match cs with
223	End Sk1Counter.
		584	\| [S1;S0;S0] => Some Dm \| [S0;S0;S0] => Some D0 \| [S1;S0;S1] => Some D1 \| [S0;S0;S1] => Some D2 \| _ => None end.
225	Module Sk1Counter7.
		585	Lemma dg_of_spec cs d: dg_of cs = Some d -> cs = dcell d.
226	Definition W : list Sym := [0;1;0;1;1;1].
227	Inductive digit := D0 \| D1 \| D2 \| D3 \| D4 \| D5 \| D6.
⋯ 24 template-only lines (template 228–254), not in ours
255	forall k, segRLs tm (h^^t) (h^^u)
256	(W^^k ++ word p ++ W^^b) (W^^(k+a) ++ word q ++ W^^c).
257	Proof.	586	Proof.
258	intros H k. rewrite lpow_add, <-app_assoc.
		587	intros E. destruct cs as [\|a cs]; [discriminate\|].
259	eapply segRLs_concat; [apply walls\|exact H].
		588	destruct cs as [\|b cs]; [destruct a; cbn in E; discriminate\|].
		589	destruct cs as [\|c cs]; [destruct a, b; cbn in E; discriminate\|].
		590	destruct cs as [\|x cs]; [\|destruct a, b, c; cbn in E; discriminate].
		591	destruct a, b, c; cbn in E; try discriminate; injection E as <-; reflexivity.
260	Qed.	592	Qed.
262	Record effect := Eff { phase : digit; used : nat; given : nat; sent : nat }.
		594	Fixpoint split (k:nat) (s:sd) : list dg * sd := match k with O => ([], s) \| S k' =>
263	Fixpoint total (p:digit) (t:nat) : effect :=
		595	let (cs, s1) := pop3 s in
264	match t with
		596	match dg_of cs with Some d => let (D, H) := split k' s1 in (d::D, H) \| None => ([], s) end end.
265	\| O => Eff p 0 0 0
		597	Lemma split_spec k: forall s D H, split k s = (D, H) -> sdn s = cells D *> sdn H.
266	\| S t => let a := total (next p) t in
267	Eff (phase a) (take p+used a) (give p+given a) (carry p+sent a)
⋯ 3 template-only lines (template 268–271), not in ours
272	segRLs tm (h^^t) (h^^sent a) (word p ++ W^^(used a+n))
273	(W^^given a ++ word (phase a) ++ W^^n).
274	Proof.	598	Proof.
275	gen p n. induction t; intros p n; cbn [total phase used given sent].
		599	induction k as [\|k IH]; intros s D H E; cbn [split] in E; [injection E as <- <-; reflexivity\|].
276	- constructor.
		600	destruct (pop3 s) as [cs s1] eqn:E3. destruct (dg_of cs) as [d\|] eqn:Ed; [\|injection E as <- <-; reflexivity].
277	- cbn [lpow]. rewrite <-Nat.add_assoc.
		601	destruct (split k s1) as [D1 H1] eqn:E1. injection E as <- <-.
278	rewrite (lpow_add _ (carry p)).
		602	rewrite (pop3_spec _ _ _ E3), (IH _ _ _ E1), (dg_of_spec _ _ Ed). cbn [cells]. rewrite Str_app_assoc. reflexivity.
279	eapply segRLs_trans.
280	+ apply one.
281	+ apply prefix_rule, IHt.
282	Qed.	603	Qed.
283	End Counter.
		605	Fixpoint pushd (D:list dg) (H:sd) : sd := match D with [] => H \| d::D' => push_block (pushd D' H) (dcell d) 1%N end.
285	Lemma total_add p t u :
		606	Lemma pushd_spec D H: sdn (pushd D H) = cells D *> sdn H.
286	total p (t+u) =
287	let a := total p t in let b := total (phase a) u in
288	Eff (phase b) (used a+used b) (given a+given b) (sent a+sent b).
289	Proof.	607	Proof.
290	gen p. induction t; intros p; cbn [Nat.add total phase used given sent].
		608	induction D as [\|d D IH]; cbn [pushd cells]; [reflexivity\|].
291	- destruct (total p u); reflexivity.
		609	rewrite push_block_spec, lpow1, IH, Str_app_assoc. reflexivity.
292	- rewrite IHt. cbn. f_equal; lia.
293	Qed.	610	Qed.
295	Lemma total_seven p : total p 7 = Eff p 2 4 1.
		612	(* untrusted proposal: the number of clean increments before the carry leaves D *)
296	Proof. destruct p; reflexivity. Qed.
		613	Definition propose (D:list dg) (b:N) : N := N.min b (Z.to_N (maxv (length D) - val D)%Z).
298	Lemma total_period p k r :
		615	Definition batch (k:krec) : option krec :=
299	total p (k*7+r) = let a := total p r in
		616	let '(w, b, c) := k in
300	Eff (phase a) (k2+used a) (k4+given a) (k+sent a).
		617	let (D, H) := split 16 w in
301	Proof.
		618	let n := propose D b in
302	induction k; [cbn [Nat.mul Nat.add]; destruct (total p r); reflexivity\|].
		619	if N.eqb n 0 then None else
303	replace (S k7+r) with (7+(k7+r)) by lia.
		620	if N.leb n b then
304	rewrite total_add,total_seven. cbn [phase used given sent].
		621	match addn D (Z.of_N n) with
305	rewrite IHk. cbn. f_equal; lia.
		622	\| Some D' => Some (pushd D' H, (b - n)%N, (c + n)%N)
306	Qed.
308	Record effectN := EffN { phaseN : digit; usedN : N; givenN : N; sentN : N }.
⋯ 469 template-only lines (template 309–827), not in ours
828	match scan_stacks s n (left c) (right c) with
829	\| Some (l,r) => Some (Cfg l r (scan_q s) (scan_dir s))
830	\| None => None end	623	\| None => None end
831	else None.	624	else None.
833	Lemma use_scan_spec tm s n c c' : scan_valid tm s -> use_scan s n c=Some c' ->
		626	Lemma batch_spec k k': batch k = Some k' -> kden k -->* kden k'.
834	denote c -[tm]->* denote c'.
835	Proof.	627	Proof.
836	intros H. unfold use_scan. destruct (eqb_spec (state c) (scan_q s)); try discriminate.
		628	destruct k as [[w b] c]. unfold batch. destruct (split 16 w) as [D H] eqn:Es.
837	pose proof (orient_direction (scan_dir s) c) as Hd.
		629	destruct (N.eqb (propose D b) 0); [discriminate\|].
838	pose proof (orient_state (scan_dir s) c) as Hq.
		630	destruct (N.leb_spec (propose D b) b) as [Hb\|]; [\|discriminate].
839	rewrite <-(orient_spec (scan_dir s) c).
		631	destruct (addn D (Z.of_N (propose D b))) as [D'\|] eqn:Ea; [\|discriminate].
840	remember (orient (scan_dir s) c) as z.
		632	intros E; injection E as <-.
841	destruct z as [l r q d]; cbn [left right state direction] in *; subst.
		633	apply addn_spec in Ea as [L V].
842	destruct (scan_stacks s n l r) as [[l' r']\|] eqn:E; intros Hc; inverts Hc.
		634	cbn [kden]. rewrite (split_spec _ _ _ _ Es), pushd_spec.
843	rewrite e. eapply scan_stacks_spec; eauto.
		635	pose proof (rounds (N.to_nat (propose D b)) D D' (sdn H) (N.to_nat (b - propose D b)) (N.to_nat c) L) as R.
		636	replace (N.to_nat b) with (N.to_nat (propose D b) + N.to_nat (b - propose D b))%nat by lia.
		637	replace (N.to_nat (c + propose D b)) with (N.to_nat (propose D b) + N.to_nat c)%nat by lia.
		638	apply R. lia.
844	Qed.	639	Qed.
846	Fixpoint zeros (xs:RT.t) := match xs with
		641	Definition FUEL : positive := 65535%positive.
847	\| [] => true
		642	Definition fromres (k:krec) (r:res) : krec + unit := match r with
848	\| (w,_)::xs => if forallb (fun b=>eqb b 0) w then zeros xs else false end.
		643	\| Kf w b c => inl (w, b, c) \| Halt => inr tt \| Fuel _ => inl k end.
849	Lemma zero_word w : forallb (fun b=>eqb b 0) w=true -> w *> 0inf=0inf.
		644	Definition next (k:krec) : krec + unit :=
		645	let '(w, b, c) := k in
		646	if N.eqb b 0 then fromres k (urun 1 FUEL (kcfg k))
		647	else match batch k with Some k' => inl k' \| None => fromres k (urun 0 FUEL (kcfg k)) end.
		649	Lemma fromres_spec k r: rok (kcfg k) r ->
		650	match fromres k r with inl k' => kden k -->* kden k' \| inr _ => halts tm (kden k) end.
850	Proof.	651	Proof.
851	induction w as [\|b w IH]; cbn; intros H; [reflexivity\|].
		652	destruct r as [\|w b c\|c']; cbn [fromres rok]; rewrite kcfg_spec; intros H.
852	destruct b; cbn in H; try discriminate. rewrite IH by exact H. symmetry; apply const_unfold.
		653	- exact H.
		654	- exact H.
		655	- apply evstep_refl.
853	Qed.	656	Qed.
854	Lemma zeros_spec xs : zeros xs=true -> RT.denote xs=0inf.
		658	Lemma next_spec k: match next k with inl k' => kden k -->* kden k' \| inr _ => halts tm (kden k) end.
855	Proof.	659	Proof.
856	induction xs as [\|[w n] xs IH]; cbn [zeros RT.denote]; intros H; [reflexivity\|].
		660	unfold next. destruct k as [[w b] c].
857	destruct (forallb (fun b=>eqb b 0) w) eqn:E; try discriminate.
		661	destruct (N.eqb b 0); [apply fromres_spec, urun_spec\|].
858	rewrite IH by exact H. apply lpow_all0,zero_word,E.
		662	destruct (batch (w, b, c)) as [k'\|] eqn:Eb; [apply batch_spec, Eb\|].
		663	apply fromres_spec, urun_spec.
859	Qed.	664	Qed.
861	Section Cells.
		666	Definition run (T:N) (k:krec) : krec + unit := N_iter_until next (inl k) T.
862	Variable digit : Type.
		667	Lemma run_ok T k k': run T k = inl k' -> kden k -->* kden k'.
863	Variable word : digit -> list Sym.
864	Variable W : list Sym.
⋯ 13 template-only lines (template 865–878), not in ours
880	Lemma remove_cells_spec xs r r' : remove_cells xs r=Some r' ->
881	RT.denote r=cells_word xs *> RT.denote r'.
882	Proof.	668	Proof.
883	gen r. induction xs as [\|[p n] xs IH]; intros r H; cbn [remove_cells] in H.
		669	intros E. pose proof (@N_iter_until_spec krec unit next (inl k) T
884	- inverts H; reflexivity.
		670	(fun x => kden k -->* kden x) (fun _ => halts tm (kden k))) as H.
885	- destruct (RT.remove (word p) r) as [s\|] eqn:E; try discriminate.
		671	assert (Hstep: forall x, kden k -->* kden x ->
886	destruct (remove_run W n s) as [s'\|] eqn:E'; try discriminate.
		672	match next x with inl x' => kden k -->* kden x' \| inr _ => halts tm (kden k) end).
887	rewrite (RT.remove_spec _ _ _ E),(RT.remove_fast_spec _ _ _ _ _ E'),(IH _ H).
		673	{ intros x Ex. pose proof (next_spec x) as I. destruct (next x).
888	cbn [cells_word]; rewrite !Str_app_assoc; reflexivity.
		674	- eapply evstep_trans; eauto.
		675	- eapply halts_evstep; [exact I\|exact Ex]. }
		676	specialize (H Hstep (evstep_refl _ _)). unfold run in E. rewrite E in H. exact H.
889	Qed.	677	Qed.
890	Lemma push_cells_spec xs r : RT.denote (push_cells xs r)=cells_word xs *> RT.denote r.
		678	Lemma run_halt T k: run T k = inr tt -> halts tm (kden k).
891	Proof.	679	Proof.
892	induction xs as [\|[p n] xs IH]; cbn [push_cells cells_word]; [reflexivity\|].
		680	intros E. pose proof (@N_iter_until_spec krec unit next (inl k) T
893	rewrite !RT.push_spec,IH. change (N.to_nat 1) with 1%nat.
		681	(fun x => kden k -->* kden x) (fun _ => halts tm (kden k))) as H.
894	cbn [lpow]. rewrite app_nil_r,!Str_app_assoc. reflexivity.
		682	assert (Hstep: forall x, kden k -->* kden x ->
		683	match next x with inl x' => kden k -->* kden x' \| inr _ => halts tm (kden k) end).
		684	{ intros x Ex. pose proof (next_spec x) as I. destruct (next x).
		685	- eapply evstep_trans; eauto.
		686	- eapply halts_evstep; [exact I\|exact Ex]. }
		687	specialize (H Hstep (evstep_refl _ _)). unfold run in E. rewrite E in H. exact H.
895	Qed.	688	Qed.
897	Definition bulk_stacks q (u:list Sym) t k xs c :=
		690	Definition k0 : krec := ([], 0%N, 2%N).
898	if eqb (state c) q then
		691	Lemma init: c0 -->* kden k0.
899	let c := orient R c in
		692	Proof. unfold kden, k0, K, bellw; cbn. solve_init. Qed.
900	match RT.remove (fast_rev u) (left c),remove_run W k (right c),batch t xs with
		694	(** literal chunk states: a block is a positive, cells from the lowest bit, the top bit a sentinel *)
901	\| Some l,Some r,Some (e,ys) => if zeros l then
		695	Fixpoint pcells (p:positive) : list Sym := match p with xH => [] \| xO p' => S0 :: pcells p' \| xI p' => S1 :: pcells p' end.
902	match remove_cells xs r with
		696	Definition ncells (n:N) : list Sym := match n with N0 => [] \| Npos p => pcells p end.
903	\| Some r => Some (Cfg (left c) (RT.push W (k+e) (push_cells ys r)) q R)
		697	Fixpoint mksd (l:list N) : sd := match l with u::n::l' => (ncells u, n) :: mksd l' \| _ => [] end.
904	\| None => None end else None
		698	Definition mk (l:list N) (b c:N) : krec := (mksd l, b, c).
905	\| _,_,_ => None end
		700	(** * The run, in chunks of about 400,000 macro steps *)
906	else None.
		701	Open Scope N_scope.
908	Section BulkCorrect.
		702	Definition k1 := mk [2;1;12;1;13;1;12;1;13;1] 2528 3.
909	Variable tm : TM.
		703	Lemma s1: run 6494 k0 = inl k1. Proof. vm_check_eq. Qed.
910	Variable q : Q.
		704	Definition k2 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;1] 4857 11.
911	Variable u : list Sym.
		705	Lemma s2: run 6937 k1 = inl k2. Proof. vm_check_eq. Qed.
912	Hypothesis rule : forall t xs e ys k r, batch t xs=Some (e,ys) ->
		706	Definition k3 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 7170 4.
913	0inf <* rev u {{q}}> (W^^N.to_nat k > cells_word xs > r) -[tm]->*
		707	Lemma s3: run 7348 k2 = inl k3. Proof. vm_check_eq. Qed.
914	0inf <* rev u {{q}}> (W^^N.to_nat (k+e) > cells_word ys > r).
		708	Definition k4 := mk [9;2;5;1;6;1;13;1;12;1] 9214 3.
916	Lemma bulk_stacks_spec t k xs c c' : bulk_stacks q u t k xs c=Some c' ->
		709	Lemma s4: run 5826 k3 = inl k4. Proof. vm_check_eq. Qed.
917	denote c -[tm]->* denote c'.
		710	Definition k5 := mk [2;1;9;1;13;1;9;1;12;1;13;1;9;1;13;1] 11454 3.
918	Proof.
		711	Lemma s5: run 6375 k4 = inl k5. Proof. vm_check_eq. Qed.
919	unfold bulk_stacks. destruct (eqb_spec (state c) q); try discriminate.
		712	Definition k6 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;1;3;1;2;1;12;1;9;1] 13060 354.
920	pose proof (orient_direction R c) as Hd. pose proof (orient_state R c) as Hq.
		713	Lemma s6: run 6719 k5 = inl k6. Proof. vm_check_eq. Qed.
921	rewrite <-(orient_spec R c). remember (orient R c) as z.
		714	Definition k7 := mk [3;1;13;1;9;1;12;1;8;1;13;1] 15552 3.
922	destruct z as [l r q' d]; cbn [left right state direction] in *; subst.
		715	Lemma s7: run 7621 k6 = inl k7. Proof. vm_check_eq. Qed.
923	destruct (RT.remove (fast_rev u) l) as [l0\|] eqn:El; try discriminate.
		716	Definition k8 := mk [3;1;2;2;9;3;2;1;13;1;8;1;13;1] 17536 97.
924	destruct (remove_run W k r) as [r0\|] eqn:Er; try discriminate.
		717	Lemma s8: run 7578 k7 = inl k8. Proof. vm_check_eq. Qed.
925	destruct (batch t xs) as [[e ys]\|] eqn:Eb; try discriminate.
		718	Definition k9 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 11796 6984.
926	destruct (zeros l0) eqn:Ez; try discriminate.
		719	Lemma s9: run 3824 k8 = inl k9. Proof. vm_check_eq. Qed.
927	destruct (remove_cells xs r0) as [r1\|] eqn:Ec; intros H; inverts H.
		720	Definition k10 := mk [3;1;9;1;13;1;9;1;13;2;8;1;13;1] 20426 2.
928	cbn [denote left right state direction].
		721	Lemma s10: run 5603 k9 = inl k10. Proof. vm_check_eq. Qed.
929	rewrite !RT.push_spec,push_cells_spec,(RT.remove_spec _ _ _ El),
		722	Definition k11 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;4;3;1] 21673 1019.
930	(zeros_spec _ Ez),(RT.remove_fast_spec _ _ _ _ _ Er),(remove_cells_spec _ _ _ Ec).
		723	Lemma s11: run 7460 k10 = inl k11. Proof. vm_check_eq. Qed.
931	rewrite fast_rev_spec. eapply rule; exact Eb.
		724	Definition k12 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;1;3;1] 18685 6164.
932	Qed.
		725	Lemma s12: run 7584 k11 = inl k12. Proof. vm_check_eq. Qed.
933	End BulkCorrect.
		726	Definition k13 := mk [3;1;2;2;9;5;2;1;13;1] 24853 2197.
934	End Cells.
		727	Lemma s13: run 7678 k12 = inl k13. Proof. vm_check_eq. Qed.
937	Definition initial := Cfg [] [] A R.
		728	Definition k14 := mk [4;1;4;1;9;1;13;2;12;1;13;1] 29274 3.
938	Lemma initial_spec : denote initial=c0.
		729	Lemma s14: run 7294 k13 = inl k14. Proof. vm_check_eq. Qed.
939	Proof. reflexivity. Qed.
		730	Definition k15 := mk [3;1;2;2;9;5;2;1;9;1;13;1] 29305 2203.
940	End Sk1Check.
		731	Lemma s15: run 7376 k14 = inl k15. Proof. vm_check_eq. Qed.
942	Module Sk1Auto.
		732	Definition k16 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;5;3;1] 33283 5.
943	Import Sk1Check.
		733	Lemma s16: run 5499 k15 = inl k16. Proof. vm_check_eq. Qed.
944	Import RM.
		734	Definition k17 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;5;3;1] 33430 214.
945	Local Opaque RT.remove_fast RT.remove RT.push.
		735	Lemma s17: run 1042 k16 = inl k17. Proof. vm_check_eq. Qed.
947	(* Proposals need not be complete: the bulk/scan checkers certify each use. *)
		736	Definition k18 := mk [3;1;2;1;4;1;9;1;8;2;12;1;9;1;13;1] 35462 2.
948	Definition front_size (r:RT.t) := RT.size (firstn 2 r).
		737	Lemma s18: run 5752 k17 = inl k18. Proof. vm_check_eq. Qed.
949	Definition periodic (w:list Sym) (r:RT.t) :=
		738	Definition k19 := mk [2;1;13;2] 37170 6.
950	let '(x,v):=match r with
		739	Lemma s19: run 5301 k18 = inl k19. Proof. vm_check_eq. Qed.
951	\| (x,Npos xH)::(v,_)::_=>(x,v)
		740	Definition k20 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 38739 75.
952	\| (v,_)::_=>([],v) \| []=>([],[]) end in
		741	Lemma s20: run 5358 k19 = inl k20. Proof. vm_check_eq. Qed.
953	eqb (x++v^^length w) (w^^length v++x).
		742	Definition k21 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 38839 190.
954	Fixpoint count_run fuel w r : N*RT.t := match fuel with
		743	Lemma s21: run 826 k20 = inl k21. Proof. vm_check_eq. Qed.
955	\| O=>(0%N,r)
		744	Definition k22 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;2;3;1;2;1;3;1] 38217 1034.
956	\| S fuel=>match (if periodic w r then RT.skip w (front_size r) r else None) with
		745	Lemma s22: run 728 k21 = inl k22. Proof. vm_check_eq. Qed.
957	\| Some(k,s)=>let '(n,s):=count_run fuel w s in ((k+n)%N,s)
		746	Definition k23 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;2;3;1;2;1;3;1] 39407 15.
958	\| None=>match RT.remove w r with
		747	Lemma s23: run 680 k22 = inl k23. Proof. vm_check_eq. Qed.
959	\| Some s=>let '(n,s):=count_run fuel w s in ((1+n)%N,s)
		748	Definition k24 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2;2;1;3;2;2;1;3;1] 39554 3.
960	\| None=>(0%N,r) end end end.
		749	Lemma s24: run 478 k23 = inl k24. Proof. vm_check_eq. Qed.
962	Section Proposal.
		750	Definition k25 := mk [3;1;2;2;3;1;2;4;3;2;9;1;12;1;8;1;13;1] 41242 7.
963	Variable digit : Type.
		751	Lemma s25: run 4734 k24 = inl k25. Proof. vm_check_eq. Qed.
964	Variable W : list Sym.
		752	Definition k26 := mk [5;1;6;1;13;3;12;2] 42423 3.
965	Variable word : digit -> list Sym.
		753	Lemma s26: run 3423 k25 = inl k26. Proof. vm_check_eq. Qed.
966	Variable next : digit -> digit.
		754	Definition k27 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 43651 6.
967	Variable take : digit -> nat.
		755	Lemma s27: run 3842 k26 = inl k27. Proof. vm_check_eq. Qed.
968	Variable index : digit -> N.
		756	Definition k28 := mk [3;1;12;1;9;1;12;2;8;1;9;2;13;1] 45522 2.
969	Variable period : nat.
		757	Lemma s28: run 6221 k27 = inl k28. Proof. vm_check_eq. Qed.
970	Variable order : list digit.
		758	Definition k29 := mk [2;2;6;1;12;1;9;2;8;1;13;1;8;1;13;1] 47584 2.
971	Fixpoint first_bad fuel p n : N := match fuel with
		759	Lemma s29: run 7296 k28 = inl k29. Proof. vm_check_eq. Qed.
972	\| O=>1%N
		760	Definition k30 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 33066 16541.
973	\| S fuel=>if (N.of_nat(take p)<=?n)%N
		761	Lemma s30: run 6943 k29 = inl k30. Proof. vm_check_eq. Qed.
974	then (1+first_bad fuel (next p) (n-N.of_nat(take p)))%N else 1%N end.
		762	Definition k31 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1] 51554 14.
975	Definition unsafe p n := (N.of_nat period*(n/2)+first_bad period p (n mod 2))%N.
		763	Lemma s31: run 6927 k30 = inl k31. Proof. vm_check_eq. Qed.
976	Definition better (a b:option(digitNRT.t)) := match a,b with
		764	Definition k32 := mk [7;1;6;1;8;1;12;1;13;2;9;1;12;2] 53490 2.
977	\| Some(p,n,r),Some(q,m,s)=>if (n<?m)%N then b else a
		765	Lemma s32: run 7379 k31 = inl k32. Proof. vm_check_eq. Qed.
978	\| None,_=>b \| _,None=>a end.
		766	Definition k33 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;13;1;9;1;13;1] 55495 66.
979	Fixpoint choose ps r : option(digitNRT.t) := match ps with
		767	Lemma s33: run 7664 k32 = inl k33. Proof. vm_check_eq. Qed.
980	\| []=>None
		768	Definition k34 := mk [2;2;6;1;9;2;12;1;13;1;8;2;13;1] 57511 2.
981	\| p::ps=>let cand:=match RT.remove (word p) r with
		769	Lemma s34: run 7597 k33 = inl k34. Proof. vm_check_eq. Qed.
982	\| None=>None
		770	Definition k35 := mk [7;1;6;1;9;1;13;1;9;1;13;1;8;2;13;1] 59539 2.
983	\| Some r=>let '(n,r):=count_run 32 W r in Some(p,n,r) end in
		771	Lemma s35: run 7700 k34 = inl k35. Proof. vm_check_eq. Qed.
984	better cand (choose ps r) end.
		772	Definition k36 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;5;1;6;1;13;1;12;1;13;1] 61467 29.
985	Fixpoint propose_cells fuel r cap : Nlist(digitN) := match fuel with
		773	Lemma s36: run 7562 k35 = inl k36. Proof. vm_check_eq. Qed.
986	\| O=>(0%N,[])
		774	Definition k37 := mk [3;1;9;1;13;1;9;1;8;1;12;1;9;1;12;1;13;1] 63602 2.
987	\| S fuel=>match choose order r with
		775	Lemma s37: run 8077 k36 = inl k37. Proof. vm_check_eq. Qed.
988	\| None=>(0%N,[])
		776	Definition k38 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 65607 38.
989	\| Some(p,n,r)=>
		777	Lemma s38: run 8114 k37 = inl k38. Proof. vm_check_eq. Qed.
990	let t:=N.pred(unsafe p n) in
		778	Definition k39 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 66130 9.
991	let t:=match cap with None=>t \| Some u=>N.min t u end in
		779	Lemma s39: run 1823 k38 = inl k39. Proof. vm_check_eq. Qed.
992	let child:=((t+index p)/N.of_nat period)%N in
		780	Definition k40 := mk [3;1;2;2;9;4;2;1;9;2;8;1;9;2;12;1] 67466 362.
993	if (child=?0)%N then (t,[(p,n)]) else
		781	Lemma s40: run 5645 k39 = inl k40. Proof. vm_check_eq. Qed.
994	let '(u,xs):=propose_cells fuel r (Some child) in
		782	Definition k41 := mk [9;1;5;1;6;1] 69415 3.
995	(N.min t (N.of_nat period*u+N.of_nat (Nat.pred period)-index p)%N,(p,n)::xs)
		783	Lemma s41: run 6106 k40 = inl k41. Proof. vm_check_eq. Qed.
996	end end.
		784	Definition k42 := mk [2;1;3;1;2;3;12;1;4;1;13;1;8;2;9;1;8;1;13;1] 71443 2.
997	Definition proposal q (u:list Sym) c : option(NNlist(digit*N)) :=
		785	Lemma s42: run 7526 k41 = inl k42. Proof. vm_check_eq. Qed.
998	if eqb (state c) q then
		786	Definition k43 := mk [2;1;13;1;12;1;13;1] 73359 5.
999	let c:=orient R c in
		787	Lemma s43: run 7452 k42 = inl k43. Proof. vm_check_eq. Qed.
1000	match RT.remove (fast_rev u) (left c) with
		788	Definition k44 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;2;2;1;3;1] 68444 6798.
1001	\| Some l=>if zeros l then
		789	Lemma s44: run 6820 k43 = inl k44. Proof. vm_check_eq. Qed.
1002	let '(k,r):=count_run 32 W (right c) in
		790	Definition k45 := mk [3;1;2;2;9;3;3;1;2;1;3;1;2;1;9;2] 76609 34.
1003	let '(t,xs):=propose_cells 256 r None in
		791	Lemma s45: run 5182 k44 = inl k45. Proof. vm_check_eq. Qed.
1004	if (t=?0)%N then None else Some(t,k,xs)
		792	Definition k46 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 78581 7.
1005	else None
		793	Lemma s46: run 7356 k45 = inl k46. Proof. vm_check_eq. Qed.
1006	\| None=>None end
		794	Definition k47 := mk [7;1;6;1;9;1;13;2;9;1;12;1;9;1;12;1] 80412 2.
1007	else None.
		795	Lemma s47: run 7418 k46 = inl k47. Proof. vm_check_eq. Qed.
1009	End Proposal.
		796	Definition k48 := mk [2;2;4;1;8;2;13;1;9;2;8;1;12;1] 82518 2.
1011	Fixpoint drop n r := match n with O=>r \| S n=>drop n (snd(RT.pop r)) end.
		797	Lemma s48: run 7550 k47 = inl k48. Proof. vm_check_eq. Qed.
1012	Definition scan_count (s:Sk1Counter.scan) c : N :=
		798	Definition k49 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;4;1;4;1;12;1;9;1;12;1] 84574 3.
1013	if eqb (state c) (Sk1Counter.scan_q s) then
		799	Lemma s49: run 7450 k48 = inl k49. Proof. vm_check_eq. Qed.
1014	let c:=orient (Sk1Counter.scan_dir s) c in
		800	Definition k50 := mk [3;1;2;2;9;2;3;1;2;4;3;2;13;2] 86526 59.
1015	if zeros (drop 11 (left c)) then 0%N else
		801	Lemma s50: run 7947 k49 = inl k50. Proof. vm_check_eq. Qed.
1016	let '(ctx,dst,w,src):=match Sk1Counter.scan_dir s with
		802	Definition k51 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;13;2] 88685 27.
1017	\| L=>(Sk1Counter.scan_context s,right c,fast_rev(Sk1Counter.scan_in s),left c)
		803	Lemma s51: run 8124 k50 = inl k51. Proof. vm_check_eq. Qed.
1018	\| R=>(fast_rev(Sk1Counter.scan_context s),left c,Sk1Counter.scan_in s,right c) end in
		804	Definition k52 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 90749 5.
1019	match RT.remove ctx dst with
		805	Lemma s52: run 7913 k51 = inl k52. Proof. vm_check_eq. Qed.
1020	\| None=>0%N
		806	Definition k53 := mk [3;1;2;2;9;2;2;1;13;3;12;1;13;1] 92856 26.
1021	\| Some _=>let '(n,tail):=count_run 32 w src in
		807	Lemma s53: run 7842 k52 = inl k53. Proof. vm_check_eq. Qed.
1022	match Sk1Counter.scan_dir s with
		808	Definition k54 := mk [3;1;4;1;4;1;4;1;9;1;12;1;13;1;9;1;12;1;13;1] 94810 2.
1023	\| L=>if zeros (drop 11 tail) then (n-6)%N else n \| R=>n end end
		809	Lemma s54: run 7953 k53 = inl k54. Proof. vm_check_eq. Qed.
1024	else 0%N.
		810	Definition k55 := mk [3;1;2;3;9;2;13;1;9;2;12;1;13;1] 96781 6.
1025	Section Scan.
		811	Lemma s55: run 8137 k54 = inl k55. Proof. vm_check_eq. Qed.
1026	Variable min_scan : N.
		812	Definition k56 := mk [2;1;13;1;9;2;13;1;9;1;13;1] 98898 3.
1027	Definition auto_scan s c :=
		813	Lemma s56: run 7862 k55 = inl k56. Proof. vm_check_eq. Qed.
1028	let n:=scan_count s c in
		814	Definition k57 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;4;3;1] 100517 389.
1029	if (n<?min_scan)%N then None else use_scan s n c.
		815	Lemma s57: run 7388 k56 = inl k57. Proof. vm_check_eq. Qed.
1030	Fixpoint try_scans scans c := match scans with
		816	Definition k58 := mk [3;1;5;1;7;1;6;1;12;2;13;1;12;1;13;1] 102910 2.
1031	\| []=>None \| s::scans=>match auto_scan s c with
		817	Lemma s58: run 7748 k57 = inl k58. Proof. vm_check_eq. Qed.
1032	\| Some c=>Some c \| None=>try_scans scans c end end.
		818	Definition k59 := mk [3;1;2;2;9;4;2;1;13;1] 104328 639.
1033	Section Run.
		819	Lemma s59: run 7994 k58 = inl k59. Proof. vm_check_eq. Qed.
1034	Variable auto_bulk : config -> option config.
		820	Definition k60 := mk [2;1;3;1;2;1;3;1;12;1;8;1;12;1;13;1;12;2;13;1] 106959 2.
1035	Definition advance tm scans c : config+unit := match auto_bulk c with
		821	Lemma s60: run 7570 k59 = inl k60. Proof. vm_check_eq. Qed.
1036	\| Some c=>inl c
		822	Definition k61 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;3;9;1;13;1] 108970 9.
1037	\| None=>match try_scans scans c with
		823	Lemma s61: run 7545 k60 = inl k61. Proof. vm_check_eq. Qed.
1038	\| Some c=>inl c
		824	Definition k62 := mk [3;1;2;2;9;2;2;1;9;2;12;2;13;1] 111006 22.
1039	\| None=>match RM.raw tm c with Some c=>inl c \| None=>inr tt end end end.
		825	Lemma s62: run 7475 k61 = inl k62. Proof. vm_check_eq. Qed.
1040	Definition check tm scans fuel := match N_iter_until (advance tm scans) (inl initial) fuel with
		826	Definition k63 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1] 113172 5.
1041	\| inl _=>false \| inr _=>true end.
		827	Lemma s63: run 7694 k62 = inl k63. Proof. vm_check_eq. Qed.
1043	Section Correct.
		828	Definition k64 := mk [3;1;2;2;9;2;3;1;2;4;3;1;2;1;9;1;12;1] 115206 60.
1044	Variable tm:TM.
		829	Lemma s64: run 7436 k63 = inl k64. Proof. vm_check_eq. Qed.
1045	Variable scans:list Sk1Counter.scan.
		830	Definition k65 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 116881 380.
1046	Hypothesis scans_ok:Forall (Sk1Counter.scan_valid tm) scans.
		831	Lemma s65: run 7491 k64 = inl k65. Proof. vm_check_eq. Qed.
1047	Hypothesis bulk_ok:forall c c', auto_bulk c=Some c' -> denote c -[tm]->* denote c'.
		832	Definition k66 := mk [2;1;9;2;8;1;9;3;13;1;8;1;12;1] 119273 3.
1049	Lemma auto_scan_spec s c c': Sk1Counter.scan_valid tm s -> auto_scan s c=Some c' ->
		833	Lemma s66: run 7454 k65 = inl k66. Proof. vm_check_eq. Qed.
1050	denote c -[tm]->* denote c'.
		834	Definition k67 := mk [2;1;9;1;12;1;9;1;12;1] 121415 5.
1051	Proof.
		835	Lemma s67: run 7336 k66 = inl k67. Proof. vm_check_eq. Qed.
1052	intros H. unfold auto_scan. destruct (N.ltb (scan_count s c) min_scan); try discriminate.
		836	Definition k68 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;12;1;13;1] 123482 6.
1053	apply use_scan_spec,H.
		837	Lemma s68: run 7404 k67 = inl k68. Proof. vm_check_eq. Qed.
1054	Qed.
		838	Definition k69 := mk [3;1;2;2;9;4;3;1;2;4;3;2] 125323 260.
1055	Lemma try_scans_spec ss c c':Forall(Sk1Counter.scan_valid tm) ss -> try_scans ss c=Some c' ->
		839	Lemma s69: run 7599 k68 = inl k69. Proof. vm_check_eq. Qed.
1056	denote c -[tm]->* denote c'.
		840	Definition k70 := mk [3;1;13;1;12;1;8;1;12;1;8;1;9;1;12;1] 127747 3.
1057	Proof.
		841	Lemma s70: run 7473 k69 = inl k70. Proof. vm_check_eq. Qed.
1058	intros H. induction H; cbn [try_scans]; [discriminate\|].
		842	Definition k71 := mk [3;1;2;2;9;3;3;1;2;1;3;1;2;1;12;1] 129895 12.
1059	destruct (auto_scan x c) as [c''\|] eqn:E; [intros H'; inverts H'\|apply IHForall].
		843	Lemma s71: run 7633 k70 = inl k71. Proof. vm_check_eq. Qed.
1060	eapply auto_scan_spec; eauto.
		844	Definition k72 := mk [3;1;2;1;4;1;12;1;13;2;9;3;13;1;9;1;12;1] 131925 2.
1061	Qed.
		845	Lemma s72: run 6403 k71 = inl k72. Proof. vm_check_eq. Qed.
1062	Lemma advance_spec c:match advance tm scans c with
		846	Definition k73 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 133356 11.
1063	\| inl c'=>denote c -[tm]->* denote c' \| inr _=>halted tm (denote c) end.
		847	Lemma s73: run 4443 k72 = inl k73. Proof. vm_check_eq. Qed.
1064	Proof.
		848	Definition k74 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;1;3;1] 135107 5.
1065	unfold advance. destruct (auto_bulk c) as [c'\|] eqn:E; [eapply bulk_ok; eauto\|].
		849	Lemma s74: run 5830 k73 = inl k74. Proof. vm_check_eq. Qed.
1066	destruct (try_scans scans c) as [c'\|] eqn:Es; [eapply try_scans_spec; eauto\|].
		850	Definition k75 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 136586 10.
1067	pose proof(RM.raw_spec tm c) as H. destruct(RM.raw tm c); [apply evstep_one,H\|exact H].
		851	Lemma s75: run 5232 k74 = inl k75. Proof. vm_check_eq. Qed.
1068	Qed.
		852	Definition k76 := mk [2;1;12;1;13;1;8;1;12;1;8;1;13;1] 138568 3.
1069	Theorem check_spec fuel:check tm scans fuel=true -> halts tm c0.
		853	Lemma s76: run 7025 k75 = inl k76. Proof. vm_check_eq. Qed.
1070	Proof.
		854	Definition k77 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 140195 125.
1071	rewrite <-initial_spec.
		855	Lemma s77: run 5548 k76 = inl k77. Proof. vm_check_eq. Qed.
1072	pose proof (@N_iter_until_spec config unit (advance tm scans) (inl initial) fuel
		856	Definition k78 := mk [3;1;9;1;13;3;8;1;9;2;13;1] 141966 2.
1073	(fun c=>denote initial -[tm]->* denote c)
		857	Lemma s78: run 5279 k77 = inl k78. Proof. vm_check_eq. Qed.
1074	(fun _=>halts tm (denote initial))) as H.
		858	Definition k79 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;10;3;1] 143591 130.
1075	assert (Hstep:forall c,denote initial -[tm]->* denote c ->
		859	Lemma s79: run 6221 k78 = inl k79. Proof. vm_check_eq. Qed.
1076	match advance tm scans c with
		860	Definition k80 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;4;3;1] 138802 5164.
1077	\| inl c'=>denote initial -[tm]->* denote c' \| inr _=>halts tm (denote initial) end).
		861	Lemma s80: run 1018 k79 = inl k80. Proof. vm_check_eq. Qed.
1078	{ intros c E. pose proof(advance_spec c) as I. destruct(advance tm scans c).
		862	Definition k81 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;2;2;1;3;1] 142369 1768.
1079	- eapply evstep_trans; eauto.
		863	Lemma s81: run 720 k80 = inl k81. Proof. vm_check_eq. Qed.
1080	- eapply halts_evstep; [apply halted_halts,I\|exact E]. }
		864	Definition k82 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;5;3;1;2;1;3;1] 144048 260.
1081	specialize (H Hstep ltac:(constructor)). unfold check.
		865	Lemma s82: run 660 k81 = inl k82. Proof. vm_check_eq. Qed.
1082	destruct(N_iter_until (advance tm scans) (inl initial) fuel); [discriminate\|].
		866	Definition k83 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;2;3;1;2;1;3;1] 142040 2457.
1083	intros _. exact H.
		867	Lemma s83: run 782 k82 = inl k83. Proof. vm_check_eq. Qed.
1084	Qed.
		868	Definition k84 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;3;3;1;2;1;3;1] 142601 2026.
1085	End Correct.
		869	Lemma s84: run 613 k83 = inl k84. Proof. vm_check_eq. Qed.
1086	End Run.
		870	Definition k85 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;2;2;1;3;1] 139135 5611.
1087	End Scan.
		871	Lemma s85: run 545 k84 = inl k85. Proof. vm_check_eq. Qed.
1088	End Sk1Auto.
		872	Definition k86 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 144489 391.
1090	Module Sk1Auto6.
		873	Lemma s86: run 563 k85 = inl k86. Proof. vm_check_eq. Qed.
1091	Import Sk1Counter Sk1Check Sk1Auto.
		874	Definition k87 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;10;3;1] 144569 422.
1092	Import RM.
		875	Lemma s87: run 437 k86 = inl k87. Proof. vm_check_eq. Qed.
1094	Definition index p : N := match p with
		876	Definition k88 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;10;3;2;2;1;3;1] 142015 3076.
1095	\| D0=>0 \| D1=>1 \| D2=>2 \| D3=>3 \| D4=>4 \| D5=>5 end%N.
		877	Lemma s88: run 437 k87 = inl k88. Proof. vm_check_eq. Qed.
1096	Definition proposal q := Sk1Auto.proposal digit W word next take index 6
		878	Definition k89 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;2;2;1;3;1] 144941 238.
1097	[D5;D4;D3;D2;D1;D0] q [1;0;1].
		879	Lemma s89: run 371 k88 = inl k89. Proof. vm_check_eq. Qed.
1098	Definition auto_bulk q c := match proposal q c with
		880	Definition k90 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 141126 4130.
1099	\| Some(t,k,xs)=>bulk_stacks digit word W batch q [1;0;1] t k xs c \| None=>None end.
		881	Lemma s90: run 390 k89 = inl k90. Proof. vm_check_eq. Qed.
1100	Lemma auto_bulk_spec tm q
		882	Definition k91 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;3;3;1;2;2;3;1;2;1;3;1] 144062 1300.
1101	(rule:forall t xs e ys k r, batch t xs=Some(e,ys) ->
		883	Lemma s91: run 356 k90 = inl k91. Proof. vm_check_eq. Qed.
1102	start q (W^^N.to_nat k > Sk1Counter.cell_word xs > r) -[tm]->*
		884	Definition k92 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;5;3;2;2;1;3;1] 140109 5361.
1103	start q (W^^N.to_nat(k+e) > Sk1Counter.cell_word ys > r)) c c':
		885	Lemma s92: run 385 k91 = inl k92. Proof. vm_check_eq. Qed.
1104	auto_bulk q c=Some c' -> denote c -[tm]->* denote c'.
		886	Definition k93 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 145576 3.
1105	Proof.
		887	Lemma s93: run 442 k92 = inl k93. Proof. vm_check_eq. Qed.
1106	unfold auto_bulk. destruct(proposal q c) as [[[t k] xs]\|]; try discriminate.
		888	Definition k94 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;4;3;1] 138650 7006.
1107	eapply bulk_stacks_spec; exact rule.
		889	Lemma s94: run 364 k93 = inl k94. Proof. vm_check_eq. Qed.
1108	Qed.
		890	Definition k95 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 144465 1295.
1109	End Sk1Auto6.
		891	Lemma s95: run 384 k94 = inl k95. Proof. vm_check_eq. Qed.
1111	Module Sk1Auto94.
		892	Definition k96 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;4;3;1] 142036 3832.
1112	Import Sk1Check Sk1Counter7 Sk1Auto.
		893	Lemma s96: run 432 k95 = inl k96. Proof. vm_check_eq. Qed.
1113	Import RM.
		894	Definition k97 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;2;2;1;3;1] 145689 323.
1115	Definition entry (r:side) := 0inf <* <[1;1;1;1;1;0] {{D}}> r.
		895	Lemma s97: run 529 k96 = inl k97. Proof. vm_check_eq. Qed.
1116	Definition index p : N := match p with
		896	Definition k98 := mk [3;1;2;2;9;2;3;1;2;4;3;1;5;1;6;1;9;1;13;1;9;6;8;1;2;2;3;1] 146505 40.
1117	\| D0=>0 \| D1=>1 \| D2=>2 \| D3=>3 \| D4=>4 \| D5=>5 \| D6=>6 end%N.
		897	Lemma s98: run 1798 k97 = inl k98. Proof. vm_check_eq. Qed.
1119	Definition proposal := Sk1Auto.proposal digit W word next take index 7
		898	Definition k99 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;2] 148043 10.
1120	[D3;D5;D4;D0;D6;D2;D1] D [1;1;1;1;1;0].
		899	Lemma s99: run 5409 k98 = inl k99. Proof. vm_check_eq. Qed.
1121	Definition auto_bulk c := match proposal c with
		900	Definition k100 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;2;3;1] 149635 109.
1122	\| Some(t,k,xs)=>bulk_stacks digit word W batch D [1;1;1;1;1;0] t k xs c \| None=>None end.
		901	Lemma s100: run 5929 k99 = inl k100. Proof. vm_check_eq. Qed.
1123	Lemma auto_bulk_spec tm
		902	Definition k101 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 150455 4.
1124	(rule:forall t xs e ys k r, batch t xs=Some(e,ys) ->
		903	Lemma s101: run 2894 k100 = inl k101. Proof. vm_check_eq. Qed.
1125	entry (W^^N.to_nat k > Sk1Counter7.cell_word xs > r) -[tm]->*
		904	Definition k102 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 152515 3.
1126	entry (W^^N.to_nat(k+e) > Sk1Counter7.cell_word ys > r)) c c':
		905	Lemma s102: run 7353 k101 = inl k102. Proof. vm_check_eq. Qed.
1127	auto_bulk c=Some c' -> denote c -[tm]->* denote c'.
		906	Definition k103 := mk [3;1;9;1;13;1;12;1;13;1;9;2;12;1;13;1] 154596 2.
1128	Proof.
		907	Lemma s103: run 7519 k102 = inl k103. Proof. vm_check_eq. Qed.
1129	unfold auto_bulk. destruct(proposal c) as [[[t k] xs]\|]; try discriminate.
		908	Definition k104 := mk [3;1;2;3;3;1;6;1;8;1;12;3;13;1;12;1] 156540 5.
1130	eapply bulk_stacks_spec; exact rule.
		909	Lemma s104: run 7129 k103 = inl k104. Proof. vm_check_eq. Qed.
1131	Qed.
		910	Definition k105 := mk [3;1;2;2;9;5;3;1;2;1;3;2;13;1] 158273 348.
1132	End Sk1Auto94.
		911	Lemma s105: run 7485 k104 = inl k105. Proof. vm_check_eq. Qed.
1134	Module TM17.
		912	Definition k106 := mk [7;1;6;1;5;1;7;1;6;1;8;2;9;1;8;1;13;2] 160683 2.
1135	Import Sk1CounterMixed Sk1Check Sk1Auto.
		913	Lemma s106: run 7397 k105 = inl k106. Proof. vm_check_eq. Qed.
1136	Import BusyCoq.Eqb.
		914	Definition k107 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 162703 146.
1137	Open Scope sym_scope.
		915	Lemma s107: run 7551 k106 = inl k107. Proof. vm_check_eq. Qed.
1139	Definition tm := Eval compute in (TM_from_str "1LB1LE_1RC1LB_1LA0RD_1LC0RB_0LF---_0RD1LA").
		916	Definition k108 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;5;3;1] 164371 4.
1140	Definition glider l := l <* <[0;1;0;0] <{{A}}
		917	Lemma s108: run 5063 k107 = inl k108. Proof. vm_check_eq. Qed.
1141	[1;0;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;0] *> 0inf.
		918	Definition k109 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 164597 430.
1142	Lemma glider_step l : glider l -[tm]->+ glider (l << 1).
		919	Lemma s109: run 1836 k108 = inl k109. Proof. vm_check_eq. Qed.
1143	Proof. unfold glider. step1. es. Qed.
		920	Definition k110 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 166098 129.
1144	Lemma glider_nonhalt l : ~halts tm (glider l).
		921	Lemma s110: run 3905 k109 = inl k110. Proof. vm_check_eq. Qed.
1145	Proof.
		922	Definition k111 := mk [2;1;9;4;3;1;2;1;3;1;9;1;13;2;9;2;13;1] 167936 2.
1146	apply (progress_nonhalt_simple tm side glider l).
		923	Lemma s111: run 5245 k110 = inl k111. Proof. vm_check_eq. Qed.
1147	intros l'; exists (l' << 1); apply glider_step.
		924	Definition k112 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 170042 4.
1148	Qed.
		925	Lemma s112: run 6996 k111 = inl k112. Proof. vm_check_eq. Qed.
1149	Notation "c -->* c'" := (c -[tm]->* c') (at level 40).
		926	Definition k113 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 172080 45.
1150	Definition W : list Sym := [1;0;1;1;1;1;1;1;1].
		927	Lemma s113: run 7206 k112 = inl k113. Proof. vm_check_eq. Qed.
1151	Definition U : list Sym := [1;0;0;1;0;1;0;1;0;1;0].
		928	Definition k114 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 172527 332.
1152	Definition h : list(DH0*DH0) := [((D,rev [0;1;0;1;0;1;0;1;0]),(A,[1;0;1;1;1;1]))].
		929	Lemma s114: run 2044 k113 = inl k114. Proof. vm_check_eq. Qed.
1153	Inductive digit := D0 \| D1 \| D2 \| D3 \| D4 \| D5 \| D6 \| D7 \| D8 \| D9 \| D10 \| D11 \| D12 \| D13 \| D14 \| D15 \| D16 \| D17 \| D18 \| D19 \| D20 \| D21.
		930	Definition k115 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;1] 174209 4.
1154	Definition word p : list Sym := match p with
		931	Lemma s115: run 4191 k114 = inl k115. Proof. vm_check_eq. Qed.
1155	\| D0=>[1;0;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1]
		932	Definition k116 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 174249 1540.
1156	\| D1=>[1;1;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1]
		933	Lemma s116: run 5070 k115 = inl k116. Proof. vm_check_eq. Qed.
1157	\| D2=>[1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		934	Definition k117 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 177705 19.
1158	\| D3=>[1;1;1;1;1;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		935	Lemma s117: run 7127 k116 = inl k117. Proof. vm_check_eq. Qed.
1159	\| D4=>[1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		936	Definition k118 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 178187 1507.
1160	\| D5=>[1;1;1;1;1;1;1;1;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		937	Lemma s118: run 7332 k117 = inl k118. Proof. vm_check_eq. Qed.
1161	\| D6=>[1;0;1;1;1;1]
		938	Definition k119 := mk [3;1;12;1;9;1;8;1;9;3;12;1;13;1;12;1] 180335 2.
1162	\| D7=>[1;1;1;1;1;1;1;1;1]
		939	Lemma s119: run 2460 k118 = inl k119. Proof. vm_check_eq. Qed.
1163	\| D8=>[1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		940	Definition k120 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 181779 259.
1164	\| D9=>[1;1;1;1;1;1;1;1;1;1;1;1;1;1;1]
		941	Lemma s120: run 6487 k119 = inl k120. Proof. vm_check_eq. Qed.
1165	\| D10=>[1;0;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		942	Definition k121 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;4;3;2;8;1;13;2] 183784 130.
1166	\| D11=>[1;1;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1]
		943	Lemma s121: run 7311 k120 = inl k121. Proof. vm_check_eq. Qed.
1167	\| D12=>[1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;0;1;1;1;1]
		944	Definition k122 := mk [11;1;7;1;6;1;5;1;7;1;6;1;12;1;9;1;12;1;13;1;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 185686 2.
1168	\| D13=>[1;1;1;1;1;1;1;1;1;1;0;1;1;1;1]
		945	Lemma s122: run 7123 k121 = inl k122. Proof. vm_check_eq. Qed.
1169	\| D14=>[1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1]
		946	Definition k123 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 181634 5435.
1170	\| D15=>[1;1;1;1;1;1;1;1;1;1;1;1]
		947	Lemma s123: run 5537 k122 = inl k123. Proof. vm_check_eq. Qed.
1171	\| D16=>[1;0;1;1;1;1;1;0;1;1;1;1]
		948	Definition k124 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1;12;1] 188972 4.
1172	\| D17=>[1;1;1;1;1;1]
		949	Lemma s124: run 7381 k123 = inl k124. Proof. vm_check_eq. Qed.
1173	\| D18=>[1;0;1;1;1;1;1;0;1;1;1;1;1;0;1;1;1;1]
		950	Definition k125 := mk [2;1;3;1;2;1;3;1;2;1;4;1;13;1;8;1;9;1;13;1;12;1;13;2] 190798 2.
1174	\| D19=>[1;1;1;1;1;1;1;0;1;1;1;1]
		951	Lemma s125: run 7262 k124 = inl k125. Proof. vm_check_eq. Qed.
1175	\| D20=>[1;0;1;1;1;1;1;0;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1]
		952	Definition k126 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 163913 28717.
1176	\| D21=>[1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1] end.
		953	Lemma s126: run 7336 k125 = inl k126. Proof. vm_check_eq. Qed.
1177	Definition next p := match p with
		954	Definition k127 := mk [2;1;13;1;9;2;12;1;8;1;9;1;13;1] 194530 2.
1178	\| D0=>D1
		955	Lemma s127: run 7406 k126 = inl k127. Proof. vm_check_eq. Qed.
1179	\| D1=>D2
		956	Definition k128 := mk [5;1;6;1;9;3;13;1;12;1;13;1;12;1] 196410 3.
1180	\| D2=>D3
		957	Lemma s128: run 7453 k127 = inl k128. Proof. vm_check_eq. Qed.
1181	\| D3=>D4
		958	Definition k129 := mk [3;1;9;1;13;1;8;2;12;1;8;1;9;1;13;1] 198263 3.
1182	\| D4=>D5
		959	Lemma s129: run 6668 k128 = inl k129. Proof. vm_check_eq. Qed.
1183	\| D5=>D0
		960	Definition k130 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1] 200018 27.
1184	\| D6=>D7
		961	Lemma s130: run 6623 k129 = inl k130. Proof. vm_check_eq. Qed.
1185	\| D7=>D8
		962	Definition k131 := mk [2;1;9;2;13;1;8;1;9;1;13;1] 202048 4.
1186	\| D8=>D9
		963	Lemma s131: run 7385 k130 = inl k131. Proof. vm_check_eq. Qed.
1187	\| D9=>D10
		964	Definition k132 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 203915 4.
1188	\| D10=>D11
		965	Lemma s132: run 7357 k131 = inl k132. Proof. vm_check_eq. Qed.
1189	\| D11=>D12
		966	Definition k133 := mk [3;1;8;3;12;1;8;1;13;1;9;1;13;1] 205814 3.
1190	\| D12=>D13
		967	Lemma s133: run 6863 k132 = inl k133. Proof. vm_check_eq. Qed.
1191	\| D13=>D14
		968	Definition k134 := mk [9;3;3;1;2;1;3;2;8;1;13;1] 207715 5.
1192	\| D14=>D15
		969	Lemma s134: run 7030 k133 = inl k134. Proof. vm_check_eq. Qed.
1193	\| D15=>D16
		970	Definition k135 := mk [3;1;2;2;9;5;3;1;2;4;3;1;2;1;13;1] 204370 5256.
1194	\| D16=>D17
		971	Lemma s135: run 7563 k134 = inl k135. Proof. vm_check_eq. Qed.
1195	\| D17=>D6
		972	Definition k136 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 208742 2756.
1196	\| D18=>D19
		973	Lemma s136: run 7836 k135 = inl k136. Proof. vm_check_eq. Qed.
1197	\| D19=>D20
		974	Definition k137 := mk [2;1;9;3;3;1;2;1;3;1;2;1;4;1;13;2;12;1] 213478 2.
1198	\| D20=>D21
		975	Lemma s137: run 7675 k136 = inl k137. Proof. vm_check_eq. Qed.
1199	\| D21=>D18 end.
		976	Definition k138 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;1;3;2;13;1;12;1] 215306 6.
1200	Definition take p : nat := match p with
		977	Lemma s138: run 7358 k137 = inl k138. Proof. vm_check_eq. Qed.
1201	\| D0 \| D2 \| D3 \| D4 \| D5 \| D8 \| D10 \| D11 \| D12 \| D13 \| D14 \| D15 \| D16 \| D17 \| D18 \| D20 \| D21=>0
		978	Definition k139 := mk [6;1;4;1;8;1;9;2;12;1;13;1;9;1;13;1] 217224 2.
1202	\| D1 \| D6 \| D7 \| D9 \| D19=>1 end.
		979	Lemma s139: run 7868 k138 = inl k139. Proof. vm_check_eq. Qed.
1203	Definition give p : nat := match p with
		980	Definition k140 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;4;1;4;1;12;1;9;1;13;1] 219166 24.
1204	\| D0 \| D2 \| D4 \| D6 \| D8 \| D10 \| D12 \| D14 \| D16 \| D18 \| D20=>1
		981	Lemma s140: run 8079 k139 = inl k140. Proof. vm_check_eq. Qed.
1205	\| D1 \| D3 \| D5 \| D7 \| D9 \| D11 \| D13 \| D15 \| D17 \| D19 \| D21=>0 end.
		982	Definition k141 := mk [3;1;2;1;4;1;12;2;13;1;12;1;8;1;9;1;8;1;13;1] 221081 2.
1206	Definition carry p : nat := match p with
		983	Lemma s141: run 8075 k140 = inl k141. Proof. vm_check_eq. Qed.
1207	\| D0 \| D1 \| D2 \| D3 \| D4 \| D5 \| D6 \| D7 \| D8 \| D9 \| D10 \| D12 \| D13 \| D14 \| D16 \| D18 \| D19 \| D20=>0
		984	Definition k142 := mk [7;1;6;1;8;1;13;1;9;1;8;2;12;1;9;1;13;1] 222867 2.
1208	\| D11 \| D15 \| D17 \| D21=>1 end.
		985	Lemma s142: run 7203 k141 = inl k142. Proof. vm_check_eq. Qed.
1210	Definition period p : nat := match p with
		986	Definition k143 := mk [3;1;2;2;9;6;2;1;9;1] 211289 13543.
1211	\| D0 \| D1 \| D2 \| D3 \| D4 \| D5=>6
		987	Lemma s143: run 7687 k142 = inl k143. Proof. vm_check_eq. Qed.
1212	\| D6 \| D7 \| D8 \| D9 \| D10 \| D11 \| D12 \| D13 \| D14 \| D15 \| D16 \| D17=>12
		988	Definition k144 := mk [3;1;4;1;4;1;4;1;13;1;9;1;13;1;9;2;8;1;13;1] 226714 2.
1213	\| D18 \| D19 \| D20 \| D21=>4 end.
		989	Lemma s144: run 7895 k143 = inl k144. Proof. vm_check_eq. Qed.
1214	Definition cycle_used p : nat := match p with
		990	Definition k145 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;8;1;9;2] 228553 30.
1215	\| D0 \| D1 \| D2 \| D3 \| D4 \| D5 \| D18 \| D19 \| D20 \| D21=>1
		991	Lemma s145: run 8003 k144 = inl k145. Proof. vm_check_eq. Qed.
1216	\| D6 \| D7 \| D8 \| D9 \| D10 \| D11 \| D12 \| D13 \| D14 \| D15 \| D16 \| D17=>3 end.
		992	Definition k146 := mk [3;1;13;1;9;2;13;1;12;1;9;1;13;1] 230363 4.
1217	Definition cycle_given p : nat := match p with
		993	Lemma s146: run 7117 k145 = inl k146. Proof. vm_check_eq. Qed.
1218	\| D0 \| D1 \| D2 \| D3 \| D4 \| D5=>3
		994	Definition k147 := mk [2;2;6;1;9;3;8;1;9;1;8;2;13;1] 232280 2.
1219	\| D6 \| D7 \| D8 \| D9 \| D10 \| D11 \| D12 \| D13 \| D14 \| D15 \| D16 \| D17=>6
		995	Lemma s147: run 7695 k146 = inl k147. Proof. vm_check_eq. Qed.
1220	\| D18 \| D19 \| D20 \| D21=>2 end.
		996	Definition k148 := mk [3;1;2;1;4;1;13;1;9;2;12;1;9;1;8;1;13;1;9;1;12;1] 234154 2.
1221	Definition cycle_sent p : nat := match p with
		997	Lemma s148: run 7916 k147 = inl k148. Proof. vm_check_eq. Qed.
1222	\| D0 \| D1 \| D2 \| D3 \| D4 \| D5=>0
		998	Definition k149 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;2;13;1] 236065 18.
1223	\| D6 \| D7 \| D8 \| D9 \| D10 \| D11 \| D12 \| D13 \| D14 \| D15 \| D16 \| D17=>3
		999	Lemma s149: run 7953 k148 = inl k149. Proof. vm_check_eq. Qed.
1224	\| D18 \| D19 \| D20 \| D21=>1 end.
		1000	Definition k150 := mk [3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;1;8;1;13;2] 237937 6.
1226	Definition total := Sk1CounterMixed.total digit next take give carry.
		1001	Lemma s150: run 7255 k149 = inl k150. Proof. vm_check_eq. Qed.
1227	Definition totalN := Sk1CounterMixed.totalN digit next take give carry
		1002	Definition k151 := mk [3;1;9;2;13;1;9;1;13;2;9;1;13;2] 239870 2.
1228	period cycle_used cycle_given cycle_sent.
		1003	Lemma s151: run 7478 k150 = inl k151. Proof. vm_check_eq. Qed.
1229	Definition batch := Sk1CounterMixed.batch digit next take give carry
		1004	Definition k152 := mk [3;1;12;2;8;1;9;1;12;1;9;1;8;2;13;1] 241791 2.
1230	period cycle_used cycle_given cycle_sent.
		1005	Lemma s152: run 7712 k151 = inl k152. Proof. vm_check_eq. Qed.
1231	Definition cell_word := Sk1CounterMixed.cell_word digit W word.
		1006	Definition k153 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 242889 194.
1232	Lemma period_positive p : (0<period p)%nat.
		1007	Lemma s153: run 5908 k152 = inl k153. Proof. vm_check_eq. Qed.
1233	Proof. destruct p; cbn [period]; lia. Qed.
		1008	Definition k154 := mk [2;1;12;2;8;1;9;1;13;1;9;3;13;1] 244865 2.
1234	Lemma cycle_ok p : total p (period p)=
		1009	Lemma s154: run 8158 k153 = inl k154. Proof. vm_check_eq. Qed.
1235	Sk1CounterMixed.Eff digit p (cycle_used p) (cycle_given p) (cycle_sent p).
		1010	Definition k155 := mk [2;1;13;2;9;2;12;2;9;4;13;2] 246436 4.
1236	Proof. destruct p; reflexivity. Qed.
		1011	Lemma s155: run 6744 k154 = inl k155. Proof. vm_check_eq. Qed.
1237	Lemma wall n : segRLs tm h h (W^^n) (W^^n).
		1012	Definition k156 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1;9;1;12;1;13;1] 248292 5.
1238	Proof. esx. Qed.
		1013	Lemma s156: run 7711 k155 = inl k156. Proof. vm_check_eq. Qed.
1239	Lemma one0 p : segRLs tm h (h^^carry p) (word p ++ W^^take p)
		1014	Definition k157 := mk [2;1;12;1;8;2;12;1;9;1;13;1] 250205 2.
1240	(W^^give p ++ word(next p)).
		1015	Lemma s157: run 8109 k156 = inl k157. Proof. vm_check_eq. Qed.
1241	Proof. destruct p; cbn [word next take give carry]; esx. Qed.
		1016	Definition k158 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;1;8;1;13;1] 252014 4.
1242	Lemma one p n : segRLs tm h (h^^carry p) (word p ++ W^^(take p+n))
		1017	Lemma s158: run 8247 k157 = inl k158. Proof. vm_check_eq. Qed.
1243	(W^^give p ++ word(next p) ++ W^^n).
		1018	Definition k159 := mk [3;1;2;2;9;4;3;1;2;4;3;1;2;1;13;1] 252149 1767.
1244	Proof.
		1019	Lemma s159: run 8478 k158 = inl k159. Proof. vm_check_eq. Qed.
1245	pose proof(segRLs_concat (one0 p) (segRLs_wall'' (n:=carry p) (wall n))) as I.
		1020	Definition k160 := mk [2;2;6;1;8;1;13;2;12;1;8;3;13;1] 255919 2.
1246	rewrite lpow_add. repeat rewrite app_assoc in *; exact I.
		1021	Lemma s160: run 8267 k159 = inl k160. Proof. vm_check_eq. Qed.
1247	Qed.
		1022	Definition k161 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;1] 229298 27914.
1248	Definition start (r:side) := 0inf <* rev U {{D}}> r.
		1023	Lemma s161: run 5289 k160 = inl k161. Proof. vm_check_eq. Qed.
1249	Lemma emit r : 0inf <* <[1;0] <{{A}} [1;0;1;1;1;1] > r --> start r.
		1024	Definition k162 := mk [3;1;2;2;3;1;2;2;3;1;2;3;12;1;9;1;8;2;12;1;13;1] 259024 3.
1250	Proof. unfold start,U. esx. Qed.
		1025	Lemma s162: run 7847 k161 = inl k162. Proof. vm_check_eq. Qed.
1251	Lemma calls_spec t r r' : sideRLs tm (h^^t) r r' -> start r -->* start r'.
		1026	Definition k163 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;3;12;1;13;1] 261014 4.
1252	Proof.
		1027	Lemma s163: run 8395 k162 = inl k163. Proof. vm_check_eq. Qed.
1253	gen r r'. induction t; intros r r' H; cbn [lpow h app] in H.
		1028	Definition k164 := mk [2;1;3;1;2;1;3;1;2;1;4;1;12;1;9;2;13;1;8;2;13;1] 262910 2.
1254	- inverts H. constructor.
		1029	Lemma s164: run 7523 k163 = inl k164. Proof. vm_check_eq. Qed.
1255	- inverts H.
		1030	Definition k165 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 264449 24.
1256	match goal with Hret : sideRL _ _ _ _ _ \|- _ => follow100 Hret end.
		1031	Lemma s165: run 6222 k164 = inl k165. Proof. vm_check_eq. Qed.
1257	follow emit. apply IHt; assumption.
		1032	Definition k166 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 264348 1784.
1258	Qed.
		1033	Lemma s166: run 6883 k165 = inl k166. Proof. vm_check_eq. Qed.
1259	Lemma batch_step t xs e ys k r : batch t xs=Some(e,ys) ->
		1034	Definition k167 := mk [3;1;2;2;9;6;2;1;13;1] 257607 10236.
1260	start(W^^N.to_nat k > cell_word xs > r) -->*
		1035	Lemma s167: run 7350 k166 = inl k167. Proof. vm_check_eq. Qed.
1261	start(W^^N.to_nat(k+e) > cell_word ys > r).
		1036	Definition k168 := mk [3;1;2;1;4;1;9;1;13;1;8;1;12;1;8;1;9;1;12;1;13;1] 269743 2.
1262	Proof.
		1037	Lemma s168: run 7577 k167 = inl k168. Proof. vm_check_eq. Qed.
1263	intros H. apply (calls_spec (N.to_nat t)).
		1038	Definition k169 := mk [3;1;9;3;13;1;9;1;12;1;13;2] 271374 2.
1264	rewrite N2Nat.inj_add,lpow_add,Str_app_assoc.
		1039	Lemma s169: run 6052 k168 = inl k169. Proof. vm_check_eq. Qed.
1265	eapply segRLs_sideRLs_concat; [eapply segRLs_wall'',wall\|].
		1040	Definition k170 := mk [7;1;6;1;8;1;9;1;13;3;9;2;12;1] 272933 2.
1266	pose proof(segRLs_sideRLs_concat
		1041	Lemma s170: run 6014 k169 = inl k170. Proof. vm_check_eq. Qed.
1267	(Sk1CounterMixed.batch_spec digit W word next take give carry
		1042	Definition k171 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;1;3;2;13;1] 269499 5291.
1268	period cycle_used cycle_given cycle_sent period_positive cycle_ok
		1043	Lemma s171: run 6896 k170 = inl k171. Proof. vm_check_eq. Qed.
1269	tm h wall one t xs e ys H) (sideRLseq_O tm r)) as I.
		1044	Definition k172 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;3] 276499 4.
1270	rewrite Str_app_assoc in I. exact I.
		1045	Lemma s172: run 7571 k171 = inl k172. Proof. vm_check_eq. Qed.
1271	Qed.
		1046	Definition k173 := mk [3;1;2;2;9;4;3;1;2;1;3;1] 278241 129.
1272	(* The following functions only propose a batch. bulk_stacks checks it. *)
		1047	Lemma s173: run 7968 k172 = inl k173. Proof. vm_check_eq. Qed.
1273	Fixpoint prefix_cap (f:digit->nat) fuel p (n:N) : N := match fuel with
		1048	Definition k174 := mk [2;1;5;1;7;1;6;1;9;1;8;2;12;1;8;2;13;1] 280109 2.
1274	\| O=>0%N
		1049	Lemma s174: run 7108 k173 = inl k174. Proof. vm_check_eq. Qed.
1275	\| S fuel=>if (N.of_nat(f p)<=?n)%N
		1050	Definition k175 := mk [9;1;5;1;6;1;13;1;9;1;8;1;9;2;13;1] 281919 3.
1276	then (1+prefix_cap f fuel (next p) (n-N.of_nat(f p)))%N else 0%N end.
		1051	Lemma s175: run 7697 k174 = inl k175. Proof. vm_check_eq. Qed.
1277	Definition capacity p n :=
		1052	Definition k176 := mk [2;1;3;1;2;1;3;1;2;1;4;1;13;1;12;1;9;2;13;1;12;1;13;1] 283812 2.
1278	(N.of_nat(period p)*(n/N.of_nat(cycle_used p))+
		1053	Lemma s176: run 8017 k175 = inl k176. Proof. vm_check_eq. Qed.
1279	prefix_cap take (period p) p (n mod N.of_nat(cycle_used p)))%N.
		1054	Definition k177 := mk [7;1;6;1;9;1;13;1;8;1;13;1;8;2;9;1;8;1;9;2;13;1] 285675 2.
1280	Definition inverse p n :=
		1055	Lemma s177: run 8014 k176 = inl k177. Proof. vm_check_eq. Qed.
1281	(N.of_nat(period p)*(n/N.of_nat(cycle_sent p))+
		1056	Definition k178 := mk [2;2;4;1;13;1;8;1;13;1;9;1;13;1;8;1;9;1;8;1;13;1] 287390 2.
1282	prefix_cap carry (period p) p (n mod N.of_nat(cycle_sent p)))%N.
		1057	Lemma s178: run 7372 k177 = inl k178. Proof. vm_check_eq. Qed.
1283	Definition order := [D2;D4;D0;D3;D5;D1;D10;D20;D8;D11;D12;D14;D18;D21;D9;D13;D15;D16;D19;D7;D6;D17].
		1058	Definition k179 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1] 288982 4.
1284	Fixpoint propose fuel r cap : Nlist(digitN) := match fuel with
		1059	Lemma s179: run 6909 k178 = inl k179. Proof. vm_check_eq. Qed.
1285	\| O=>(0%N,[])
		1060	Definition k180 := mk [3;1;9;1;8;1;9;1;13;2;12;2;13;1] 290780 2.
1286	\| S fuel=>match Sk1Auto.choose digit W word order r with
		1061	Lemma s180: run 7932 k179 = inl k180. Proof. vm_check_eq. Qed.
1287	\| None=>(0%N,[])
		1062	Definition k181 := mk [3;1;8;1;9;1;8;1;9;1;8;1;13;1;8;1;13;1] 292452 3.
1288	\| Some(p,n,s)=>
		1063	Lemma s181: run 7307 k180 = inl k181. Proof. vm_check_eq. Qed.
1289	let t:=match cap with None=>capacity p n \| Some c=>N.min (capacity p n) c end in
		1064	Definition k182 := mk [8;1;4;1;4;1;12;1;8;1;9;2;13;1] 294220 4.
1290	let u:=Sk1CounterMixed.sentN digit (totalN p t) in
		1065	Lemma s182: run 7637 k181 = inl k182. Proof. vm_check_eq. Qed.
1291	if (u=?0)%N then (t,[(p,n)])
		1066	Definition k183 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 274776 20530.
1292	else let '(v,xs):=propose fuel s (Some u) in
		1067	Lemma s183: run 4530 k182 = inl k183. Proof. vm_check_eq. Qed.
1293	(N.min t (if Nat.eqb (cycle_sent p) 0 then t else inverse p v),(p,n)::xs)
		1068	Definition k184 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;3;3;1;2;1;3;1] 295491 4.
1294	end end.
		1069	Lemma s184: run 767 k183 = inl k184. Proof. vm_check_eq. Qed.
1295	Definition proposal c :=
		1070	Definition k185 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;1;9;1;12;1] 296309 34.
1296	if eqb (RM.state c) D then
		1071	Lemma s185: run 3006 k184 = inl k185. Proof. vm_check_eq. Qed.
1297	let z:=orient R c in
		1072	Definition k186 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;2;2;1;3;1] 297414 72.
1298	match RT.remove (fast_rev U) (RM.left z) with
		1073	Lemma s186: run 4176 k185 = inl k186. Proof. vm_check_eq. Qed.
1299	\| Some l=>if zeros l then
		1074	Definition k187 := mk [3;1;2;2;3;1;2;4;3;2;8;2;13;1;9;1;13;2] 298043 9.
1300	let '(k,r):=Sk1Auto.count_run 32 W (RM.right z) in
		1075	Lemma s187: run 1871 k186 = inl k187. Proof. vm_check_eq. Qed.
1301	let '(t,xs):=propose 256 r None in
		1076	Definition k188 := mk [2;1;3;1;2;1;3;1;9;2;13;3;8;1;13;2] 299891 2.
1302	if (t=?0)%N then None else Some(t,k,xs)
		1077	Lemma s188: run 7267 k187 = inl k188. Proof. vm_check_eq. Qed.
1303	else None
		1078	Definition k189 := mk [3;1;2;3;9;1;13;1;9;2;13;1;9;2;13;1] 301655 5.
1304	\| None=>None end else None.
		1079	Lemma s189: run 7531 k188 = inl k189. Proof. vm_check_eq. Qed.
1305	Definition auto_bulk c := match proposal c with
		1080	Definition k190 := mk [3;1;2;2;3;1;2;4;3;2;9;2;13;2;9;2;13;1] 303512 3.
1306	\| Some(t,k,xs)=>bulk_stacks digit word W batch D U t k xs c \| None=>None end.
		1081	Lemma s190: run 7346 k189 = inl k190. Proof. vm_check_eq. Qed.
1307	Lemma auto_bulk_spec c c' : auto_bulk c=Some c' -> RM.denote c -->* RM.denote c'.
		1082	Definition k191 := mk [2;1;13;1;8;1;12;1;13;1] 305337 6.
1308	Proof.
		1083	Lemma s191: run 6880 k190 = inl k191. Proof. vm_check_eq. Qed.
1309	unfold auto_bulk. destruct(proposal c) as [[[t k] xs]\|]; try discriminate.
		1084	Definition k192 := mk [2;2;12;1;4;1;12;1;8;1;12;1;8;1;9;1;13;2] 306632 2.
1310	eapply bulk_stacks_spec; exact batch_step.
		1085	Lemma s192: run 5200 k191 = inl k192. Proof. vm_check_eq. Qed.
1311	Qed.
		1086	Definition k193 := mk [2;2;6;1;8;1;13;1;12;1;13;1;8;1;13;1;12;1] 308446 2.
1313	Definition scans : list Sk1Counter.scan := [
		1087	Lemma s193: run 7531 k192 = inl k193. Proof. vm_check_eq. Qed.
1314	Sk1Counter.Scan A L [0;0;1;0;1;0;1;0;1] [1;1;1;1;0;1;1;1;1] [];
		1088	Definition k194 := mk [2;1;12;2;13;1;12;1;13;1;9;1;12;1] 310273 2.
1315	Sk1Counter.Scan B L [0;0;1;0;1;0;1;0;1] [1;1;1;1;1;0;1;1;1] [1;1;0];
		1089	Lemma s194: run 7758 k193 = inl k194. Proof. vm_check_eq. Qed.
1316	Sk1Counter.Scan A L [0;1;0;0;1;0;1;0;1] [1;0;1;1;1;1;1;1;1] [];
		1090	Definition k195 := mk [3;1;13;3;9;2;12;1;9;1;12;1] 312007 3.
1317	Sk1Counter.Scan F L [0;1;0;0;1;0;1;0;1] [1;1;1;1;1;0;1;1;1] [0];
		1091	Lemma s195: run 7041 k194 = inl k195. Proof. vm_check_eq. Qed.
1318	Sk1Counter.Scan B L [0;1;0;1;0;0;1;0;1] [1;1;1;1;1;0;1;1;1] [1;1;0];
		1092	Definition k196 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;12;1] 313940 4.
1319	Sk1Counter.Scan F L [0;1;0;1;0;0;1;0;1] [1;1;0;1;1;1;1;1;1] [0];
		1093	Lemma s196: run 7458 k195 = inl k196. Proof. vm_check_eq. Qed.
1320	Sk1Counter.Scan A L [0;1;0;1;0;1;0;0;1] [1;0;1;1;1;1;1;1;1] [];
		1094	Definition k197 := mk [3;1;2;2;9;2;3;1;2;4;3;2;8;1;9;1;13;2] 315732 20.
1321	Sk1Counter.Scan B L [0;1;0;1;0;1;0;0;1] [1;1;0;1;1;1;1;1;1] [1;1;0];
		1095	Lemma s197: run 7829 k196 = inl k197. Proof. vm_check_eq. Qed.
1322	Sk1Counter.Scan A L [0;1;0;1;0;1;0;1;0] [1;1;1;1;1;0;1;1;1] [1;0];
		1096	Definition k198 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1;12;1;9;2;12;1] 317511 3.
1323	Sk1Counter.Scan F L [0;1;0;1;0;1;0;1;0] [1;1;0;1;1;1;1;1;1] [0];
		1097	Lemma s198: run 7996 k197 = inl k198. Proof. vm_check_eq. Qed.
1324	Sk1Counter.Scan B R [0;1;1;1;1;1;1;1;1] [1;0;1;0;1;0;1;0;0] [];
		1098	Definition k199 := mk [3;1;2;2;9;5;3;1;2;4;3;2] 312221 7081.
1325	Sk1Counter.Scan B L [0;1;1;1;1;1;1;1;1] [0;1;1;1;1;1;1;1;1] [1;1;1;0;1;1];
		1099	Lemma s199: run 7756 k198 = inl k199. Proof. vm_check_eq. Qed.
1326	Sk1Counter.Scan B L [1;0;0;1;0;1;0;1;0] [1;1;1;0;1;1;1;1;1] [1;1;1;0;1;1];
		1100	Definition k200 := mk [2;1;13;1;12;2;9;1;13;1;8;1;9;1;12;1] 321065 3.
1327	Sk1Counter.Scan E L [1;0;0;1;0;1;0;1;0] [1;1;1;1;1;0;1;1;1] [];
		1101	Lemma s200: run 7845 k199 = inl k200. Proof. vm_check_eq. Qed.
1328	Sk1Counter.Scan A L [1;0;1;0;0;1;0;1;0] [1;1;1;1;1;0;1;1;1] [1;0];
		1102	Definition k201 := mk [3;1;2;2;9;6;3;1;2;4;3;2] 297064 25979.
1329	Sk1Counter.Scan E L [1;0;1;0;0;1;0;1;0] [1;1;0;1;1;1;1;1;1] [];
		1103	Lemma s201: run 7838 k200 = inl k201. Proof. vm_check_eq. Qed.
1330	Sk1Counter.Scan A L [1;0;1;0;1;0;0;1;0] [1;1;0;1;1;1;1;1;1] [1;0];
		1104	Definition k202 := mk [2;2;4;1;13;2;9;2;12;2;13;2] 324960 2.
1331	Sk1Counter.Scan B L [1;0;1;0;1;0;0;1;0] [1;1;1;0;1;1;1;1;1] [1;1;1;0;1;1];
		1105	Lemma s202: run 8014 k201 = inl k202. Proof. vm_check_eq. Qed.
1332	Sk1Counter.Scan B L [1;0;1;0;1;0;1;0;0] [0;1;1;1;1;1;1;1;1] [1;1;1;0;1;1];
		1106	Definition k203 := mk [2;2;6;1;12;1;13;2;12;1;9;1;12;1;9;1;12;1] 326989 2.
1333	Sk1Counter.Scan E L [1;0;1;0;1;0;1;0;0] [1;1;0;1;1;1;1;1;1] [];
		1107	Lemma s203: run 8104 k202 = inl k203. Proof. vm_check_eq. Qed.
1334	Sk1Counter.Scan D R [1;0;1;1;1;1;1;1;1] [0;1;0;1;0;1;0;1;0] [];
		1108	Definition k204 := mk [3;1;9;1;13;1;12;1;9;1;8;1;12;2;9;2;13;1] 328957 2.
1335	Sk1Counter.Scan B R [1;1;0;1;1;1;1;1;1] [1;0;0;1;0;1;0;1;0] [0];
		1109	Lemma s204: run 7332 k203 = inl k204. Proof. vm_check_eq. Qed.
1336	Sk1Counter.Scan D R [1;1;1;0;1;1;1;1;1] [1;0;0;1;0;1;0;1;0] [];
		1110	Definition k205 := mk [3;1;9;1;12;1;8;1;13;1] 330791 4.
1337	Sk1Counter.Scan B R [1;1;1;1;0;1;1;1;1] [1;0;1;0;0;1;0;1;0] [0];
		1111	Lemma s205: run 6900 k204 = inl k205. Proof. vm_check_eq. Qed.
1338	Sk1Counter.Scan D R [1;1;1;1;1;0;1;1;1] [1;0;1;0;0;1;0;1;0] [];
		1112	Definition k206 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;1;3;1] 329033 3666.
1339	Sk1Counter.Scan B R [1;1;1;1;1;1;0;1;1] [1;0;1;0;1;0;0;1;0] [0];
		1113	Lemma s206: run 7624 k205 = inl k206. Proof. vm_check_eq. Qed.
1340	Sk1Counter.Scan D R [1;1;1;1;1;1;1;0;1] [1;0;1;0;1;0;0;1;0] [];
		1114	Definition k207 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 334529 107.
1341	Sk1Counter.Scan C R [1;1;1;1;1;1;1;1;0] [0;1;0;1;0;1;0;0;1] [];
		1115	Lemma s207: run 7969 k206 = inl k207. Proof. vm_check_eq. Qed.
1342	Sk1Counter.Scan A L [0;1;0;1;0;1] [1;0;1;1;1;1] [];
		1116	Definition k208 := mk [5;1;6;1;13;1;8;1;9;1;13;1;9;1;8;2;12;1] 336542 3.
1343	Sk1Counter.Scan B L [0;1;0;1;0;1] [1;1;0;1;1;1] [1;1;0];
		1117	Lemma s208: run 7600 k207 = inl k208. Proof. vm_check_eq. Qed.
1344	Sk1Counter.Scan F L [0;1;0;1;0;1] [1;1;0;1;1;1] [0];
		1118	Definition k209 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;4;3;1] 338502 10.
1345	Sk1Counter.Scan A L [1;0;1;0;1;0] [1;1;0;1;1;1] [1;0];
		1119	Lemma s209: run 7415 k208 = inl k209. Proof. vm_check_eq. Qed.
1346	Sk1Counter.Scan B L [1;0;1;0;1;0] [0;1;1;1;1;1] [1;1;1;0;1;1];
		1120	Definition k210 := mk [3;1;2;4;3;1;2;1;13;3;8;2;13;2] 340501 4.
1347	Sk1Counter.Scan E L [1;0;1;0;1;0] [1;1;0;1;1;1] [];
		1121	Lemma s210: run 7631 k209 = inl k210. Proof. vm_check_eq. Qed.
1348	Sk1Counter.Scan B R [1;1] [1;0] [0];
		1122	Definition k211 := mk [3;1;2;2;3;1;2;3;13;1;12;1;9;1;13;3] 342421 15.
1349	Sk1Counter.Scan D R [1;1] [1;0] [];
		1123	Lemma s211: run 8179 k210 = inl k211. Proof. vm_check_eq. Qed.
1350	Sk1Counter.Scan B L [1] [1] []].
		1124	Definition k212 := mk [3;1;12;1;9;1;13;1;9;2;13;3] 344452 2.
1351	Lemma scans_valid : Forall (Sk1Counter.scan_valid tm) scans.
		1125	Lemma s212: run 8066 k211 = inl k212. Proof. vm_check_eq. Qed.
1352	Proof.
		1126	Definition k213 := mk [3;1;9;1;13;2;9;1;12;1;8;2;13;1] 346312 3.
1353	unfold scans. repeat (apply Forall_cons; [solve [unfold Sk1Counter.scan_valid;
		1127	Lemma s213: run 7823 k212 = inl k213. Proof. vm_check_eq. Qed.
1354	cbn [Sk1Counter.scan_q Sk1Counter.scan_dir Sk1Counter.scan_in
		1128	Definition k214 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1] 348291 6.
1355	Sk1Counter.scan_out Sk1Counter.scan_context rev app]; intros; shift_rule; es]\|]).
		1129	Lemma s214: run 8250 k213 = inl k214. Proof. vm_check_eq. Qed.
1356	constructor.
		1130	Definition k215 := mk [3;1;8;1;13;5] 350327 4.
1357	Qed.
		1131	Lemma s215: run 8413 k214 = inl k215. Proof. vm_check_eq. Qed.
1359	Definition glider_check c :=
		1132	Definition k216 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 352373 11.
1360	if eqb (RM.state c) A then
		1133	Lemma s216: run 8129 k215 = inl k216. Proof. vm_check_eq. Qed.
1361	let c:=orient L c in
		1134	Definition k217 := mk [3;1;2;2;3;1;2;3;9;1;13;1;9;1;8;3;12;1] 354326 8.
1362	match RT.remove <[0;1;0;0] (RM.left c),
		1135	Lemma s217: run 8077 k216 = inl k217. Proof. vm_check_eq. Qed.
1363	RT.remove [1;0;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;0] (RM.right c) with
		1136	Definition k218 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2] 355957 274.
1364	\| Some _,Some r=>zeros r \| _,_=>false end
		1137	Lemma s218: run 8106 k217 = inl k218. Proof. vm_check_eq. Qed.
1365	else false.
		1138	Definition k219 := mk [2;1;12;2;9;1;8;2;13;1;9;1;12;1] 358150 3.
1366	Lemma glider_check_spec c : glider_check c=true -> ~halts tm (RM.denote c).
		1139	Lemma s219: run 8131 k218 = inl k219. Proof. vm_check_eq. Qed.
1367	Proof.
		1140	Definition k220 := mk [3;1;2;2;9;7;3;1;2;1;3;1] 353359 6729.
1368	unfold glider_check. destruct(eqb_spec (RM.state c) A); [\|discriminate].
		1141	Lemma s220: run 8205 k219 = inl k220. Proof. vm_check_eq. Qed.
1369	pose proof(orient_direction L c) as Hd. pose proof(orient_state L c) as Hq.
		1142	Definition k221 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;2;12;1;13;1] 361901 30.
1370	rewrite <-(orient_spec L c). remember(orient L c) as z.
		1143	Lemma s221: run 7454 k220 = inl k221. Proof. vm_check_eq. Qed.
1371	destruct z as [l r q d]; cbn [RM.left RM.right RM.state RM.direction] in *; subst.
		1144	Definition k222 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 363710 34.
1372	destruct(RT.remove <[0;1;0;0] l) as [l0\|] eqn:El; [\|discriminate].
		1145	Lemma s222: run 7510 k221 = inl k222. Proof. vm_check_eq. Qed.
1373	destruct(RT.remove [1;0;1;1;0;1;1;1;1;1;0;1;1;1;1;1;1;0] r) as [r0\|] eqn:Er; [\|discriminate].
		1146	Definition k223 := mk [2;1;9;1;12;1;13;1;9;1;12;2;13;2] 365668 3.
1374	intros E. cbn [RM.denote RM.left RM.right RM.state RM.direction].
		1147	Lemma s223: run 8000 k222 = inl k223. Proof. vm_check_eq. Qed.
1375	rewrite (RT.remove_spec _ _ _ El),(RT.remove_spec _ _ _ Er),(zeros_spec _ E).
		1148	Definition k224 := mk [3;1;13;1;12;2;8;1;12;1;13;1] 367659 3.
1376	rewrite e. apply glider_nonhalt.
		1149	Lemma s224: run 8061 k223 = inl k224. Proof. vm_check_eq. Qed.
1377	Qed.
		1150	Definition k225 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;2] 369540 29.
1378	Definition advance c : RM.config+unit :=
		1151	Lemma s225: run 7640 k224 = inl k225. Proof. vm_check_eq. Qed.
1379	if glider_check c then inr tt else
		1152	Definition k226 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;8;1;4;1;4;1;12;1] 371474 11.
1380	match Sk1Auto.advance 1 auto_bulk tm scans c with
		1153	Lemma s226: run 7621 k225 = inl k226. Proof. vm_check_eq. Qed.
1381	\| inl c'=>inl c' \| inr _=>inl c end.
		1154	Definition k227 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 373171 266.
1382	Lemma advance_spec c : match advance c with
		1155	Lemma s227: run 7836 k226 = inl k227. Proof. vm_check_eq. Qed.
1383	\| inl c'=>RM.denote c -->* RM.denote c' \| inr _=>~halts tm (RM.denote c) end.
		1156	Definition k228 := mk [2;1;9;2;13;1;8;1;13;1;9;1;13;2] 375310 4.
1384	Proof.
		1157	Lemma s228: run 8257 k227 = inl k228. Proof. vm_check_eq. Qed.
1385	unfold advance. destruct(glider_check c) eqn:E; [apply glider_check_spec,E\|].
		1158	Definition k229 := mk [2;1;9;2;13;3] 377246 3.
1386	pose proof(Sk1Auto.advance_spec 1 auto_bulk tm scans scans_valid auto_bulk_spec c) as I.
		1159	Lemma s229: run 7851 k228 = inl k229. Proof. vm_check_eq. Qed.
1387	destruct(Sk1Auto.advance 1 auto_bulk tm scans c); [exact I\|constructor].
		1160	Definition k230 := mk [2;1;9;2;8;1;9;1;13;2;8;1;9;1;13;1] 379113 3.
1388	Qed.
		1161	Lemma s230: run 7750 k229 = inl k230. Proof. vm_check_eq. Qed.
1389	Definition check fuel := match N_iter_until advance (inl initial) fuel with
		1162	Definition k231 := mk [3;1;2;1;4;1;9;1;13;1;9;1;8;1;12;1;9;1;12;1] 381063 2.
1390	\| inl _=>false \| inr _=>true end.
		1163	Lemma s231: run 8096 k230 = inl k231. Proof. vm_check_eq. Qed.
1391	Theorem check_spec fuel : check fuel=true -> ~halts tm c0.
		1164	Definition k232 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;5;1;6;1;13;1] 383002 7.
1392	Proof.
		1165	Lemma s232: run 8188 k231 = inl k232. Proof. vm_check_eq. Qed.
1393	pose proof(@N_iter_until_spec RM.config unit advance (inl initial) fuel
		1166	Definition k233 := mk [3;1;2;4;3;1;7;1;6;1;12;2;13;2;8;2;12;1] 384853 3.
1394	(fun c=>c0 -->* RM.denote c) (fun _=>~halts tm c0)) as I.
		1167	Lemma s233: run 8167 k232 = inl k233. Proof. vm_check_eq. Qed.
1395	assert (S:forall c,c0 -->* RM.denote c ->
		1168	Definition k234 := mk [9;2;3;1;2;4;3;2;9;2;12;1] 386765 6.
1396	match advance c with inl c'=>c0 -->* RM.denote c' \| inr _=>~halts tm c0 end).
		1169	Lemma s234: run 7987 k233 = inl k234. Proof. vm_check_eq. Qed.
1397	{ intros c E. pose proof(advance_spec c) as J. destruct(advance c).
		1170	Definition k235 := mk [2;2;6;1;9;1;13;1;12;1;8;1;13;1;8;3;12;1] 388680 2.
1398	- eapply evstep_trans; eauto.
		1171	Lemma s235: run 8056 k234 = inl k235. Proof. vm_check_eq. Qed.
1399	- eapply multistep_nonhalt; eauto. }
		1172	Definition k236 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1] 390555 12.
1400	specialize(I S ltac:(constructor)). unfold check.
		1173	Lemma s236: run 8241 k235 = inl k236. Proof. vm_check_eq. Qed.
1401	destruct(N_iter_until advance (inl initial) fuel); [discriminate\|intros _; exact I].
		1174	Definition k237 := mk [3;1;12;1;13;1;8;1;12;1;13;3] 392515 2.
1402	Qed.
		1175	Lemma s237: run 8407 k236 = inl k237. Proof. vm_check_eq. Qed.
1403	Theorem nonhalt: ~halts tm c0.
		1176	Definition k238 := mk [3;1;2;4;3;1;2;1;8;1;9;1;12;1;9;1;8;1;13;2] 394327 3.
1404	Proof. apply (check_spec 300000%N). native_check_eq. Qed.
		1177	Lemma s238: run 7491 k237 = inl k238. Proof. vm_check_eq. Qed.
1405	End TM17.
		1178	Definition k239 := mk [2;2;4;1;12;2;8;1;13;1;9;1;12;1;9;1;12;1] 396086 2.
1407	Module TM91.
		1179	Lemma s239: run 7040 k238 = inl k239. Proof. vm_check_eq. Qed.
1408	Import Sk1Tape.
		1180	Definition k240 := mk [3;1;9;1;13;1;12;2;8;1;13;1;8;1;12;1;13;1] 397951 2.
1409	Import BusyCoq.Eqb.
		1181	Lemma s240: run 7624 k239 = inl k240. Proof. vm_check_eq. Qed.
1411	Open Scope sym_scope.
		1182	Definition k241 := mk [3;1;8;1;12;1;8;1;13;3;12;1;13;1] 399796 2.
1412	Definition tm := Eval compute in (TM_from_str "1RB0RC_1LC1RF_1RA1LD_1RD0LE_1LD1LC_0RE---").
		1183	Lemma s241: run 8069 k240 = inl k241. Proof. vm_check_eq. Qed.
1413	Notation "c -->* c'" := (c -[tm]->* c') (at level 40).
		1184	Definition k242 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 401538 4.
1414	Definition h : list(DH0*DH0) := [((C,[0]),(C,[1]))].
		1185	Lemma s242: run 7034 k241 = inl k242. Proof. vm_check_eq. Qed.
1415	Definition h' : list(DH0*DH0) := [((C,[0]),(D,[1]))].
		1186	Definition k243 := mk [3;1;9;1;13;2;12;1;8;2;9;1;13;1;9;1;13;1] 403426 2.
1416	Definition W : list Sym := [0;1].
		1187	Lemma s243: run 7363 k242 = inl k243. Proof. vm_check_eq. Qed.
1417	Definition bval (p:bool) : nat := if p then 1 else 0.
		1188	Definition k244 := mk [3;1;2;3;13;1;9;1;13;1;8;1;13;1] 405292 8.
1418	Definition bit (p:bool) : list Sym := if p then [0] else [1].
		1189	Lemma s244: run 7687 k243 = inl k244. Proof. vm_check_eq. Qed.
1419	Definition first {A} (xs:list(bool*A)) := match xs with
		1190	Definition k245 := mk [3;1;13;1;9;1;12;2;13;1;12;1;13;1] 407226 3.
1420	\| []=>false \| (p,_)::_=>p end.
		1191	Lemma s245: run 8183 k244 = inl k245. Proof. vm_check_eq. Qed.
1421	Fixpoint words (xs:list(bool*nat)) : list Sym := match xs with
		1192	Definition k246 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;4;3;1;2;1;13;1] 409017 168.
1422	\| []=>[] \| (p,n)::xs=>bit p ++ W^^n ++ words xs end.
		1193	Lemma s246: run 8231 k245 = inl k246. Proof. vm_check_eq. Qed.
1423	Open Scope nat_scope.
		1194	Definition k247 := mk [2;1;3;1;6;1;8;3;9;1;8;1;9;1;12;1] 411015 3.
1425	(* k calls into the next column must be safe before its last return.
		1195	Lemma s247: run 7572 k246 = inl k247. Proof. vm_check_eq. Qed.
1426	The guard uses both phases of that column; it never borrows a future gift. *)
		1196	Definition k248 := mk [2;1;9;2;13;1;9;1;13;1;8;1;9;1;13;1] 412907 5.
1427	Inductive Batch : nat -> list(boolnat) -> nat -> list(boolnat) -> Prop :=
		1197	Lemma s248: run 8011 k247 = inl k248. Proof. vm_check_eq. Qed.
1428	\| BNil : Batch 0 [] 0 []
		1198	Definition k249 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;1;3;1] 390175 24653.
1429	\| BCons t p n xs k p' f ys m :
		1199	Lemma s249: run 8249 k248 = inl k249. Proof. vm_check_eq. Qed.
1430	t+bval p=k*2+bval p' ->
		1200	Definition k250 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;13;1] 415099 1661.
1431	Batch k xs f ys ->
		1201	Lemma s250: run 8439 k249 = inl k250. Proof. vm_check_eq. Qed.
1432	(k=0 \/ k+2<=n+bval(first xs)+bval(first ys)) ->
		1202	Definition k251 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1] 416593 2047.
1433	m+k*2=n+f ->
		1203	Lemma s251: run 8180 k250 = inl k251. Proof. vm_check_eq. Qed.
1434	Batch t ((p,n)::xs) (k*2) ((p',m)::ys).
		1204	Definition k252 := mk [2;1;12;1;13;1;8;1;13;2;9;2;12;1] 420535 2.
1436	Lemma batch_head t xs e ys : Batch t xs e ys ->
		1205	Lemma s252: run 7990 k251 = inl k252. Proof. vm_check_eq. Qed.
1437	t+bval(first xs)=e+bval(first ys).
		1206	Definition k253 := mk [3;1;13;1;9;2;12;2;8;1;12;1] 422411 3.
1438	Proof. intros H; destruct H; cbn [first bval]; lia. Qed.
		1207	Lemma s253: run 8117 k252 = inl k253. Proof. vm_check_eq. Qed.
1439	Lemma batch_even t xs e ys : Batch t xs e ys -> exists k,e=k*2.
		1208	Definition k254 := mk [2;1;12;1;8;1;13;1;8;1;9;2;12;1] 424446 3.
1440	Proof. intros H; destruct H; [exists 0\|exists k]; reflexivity. Qed.
		1209	Lemma s254: run 7992 k253 = inl k254. Proof. vm_check_eq. Qed.
1441	Lemma batch_nil t e ys : Batch t [] e ys -> t=0 /\ e=0 /\ ys=[].
		1210	Definition k255 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;8;1;9;2;13;2;9;1;13;1] 426274 2.
1442	Proof. intros H; inverts H; auto. Qed.
		1211	Lemma s255: run 7338 k254 = inl k255. Proof. vm_check_eq. Qed.
1443	Lemma batch_refl xs : Batch 0 xs 0 xs.
		1212	Definition k256 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;2;8;1;12;1] 428148 3.
1444	Proof.
		1213	Lemma s256: run 7052 k255 = inl k256. Proof. vm_check_eq. Qed.
1445	induction xs as [\|[p n] xs IH]; [constructor\|].
		1214	Definition k257 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1] 429921 27.
1446	apply BCons with (k:=0) (f:=0); cbn; auto.
		1215	Lemma s257: run 7351 k256 = inl k257. Proof. vm_check_eq. Qed.
1447	Qed.
		1216	Definition k258 := mk [7;1;6;1;12;1;9;1;13;1;8;2;13;2;9;1;13;1] 431827 2.
1448	Lemma batch_zero xs e ys : Batch 0 xs e ys -> e=0 /\ ys=xs.
		1217	Lemma s258: run 7938 k257 = inl k258. Proof. vm_check_eq. Qed.
1449	Proof.
		1218	Definition k259 := mk [7;1;6;1;8;2;13;1;12;1;8;1;9;2;12;1] 433774 2.
1450	gen e ys. induction xs as [\|[p n] xs IH]; intros e ys H.
		1219	Lemma s259: run 7815 k258 = inl k259. Proof. vm_check_eq. Qed.
1451	- apply batch_nil in H; tauto.
		1220	Definition k260 := mk [2;1;12;2;13;1;9;1;13;2;9;1;12;1] 435655 3.
1452	- inversion H as [\|t0 p0 n0 xs0 k p' f zs m Hcount HB HG Hgap]; subst.
		1221	Lemma s260: run 7027 k259 = inl k260. Proof. vm_check_eq. Qed.
1453	assert (k=0 /\ p'=p) as [E E'] by (destruct p,p'; cbn [bval] in *; intuition lia).
		1222	Definition k261 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 437081 545.
1454	subst k p'. apply IH in HB. destruct HB; subst. split; [reflexivity\|f_equal; f_equal; lia].
		1223	Lemma s261: run 7325 k260 = inl k261. Proof. vm_check_eq. Qed.
1455	Qed.
		1224	Definition k262 := mk [2;1;5;1;7;1;6;1;8;3;12;1;13;1;12;1;13;1] 439658 2.
1456	Lemma first_one xs f ys : Batch 1 xs f ys ->
		1225	Lemma s262: run 7649 k261 = inl k262. Proof. vm_check_eq. Qed.
1457	bval(first xs)+bval(first ys)=1 /\ f=bval(first xs)*2.
		1226	Definition k263 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1;9;1;13;2;9;1;13;1] 441518 3.
1458	Proof.
		1227	Lemma s263: run 7807 k262 = inl k263. Proof. vm_check_eq. Qed.
1459	intros H. pose proof(batch_head _ _ _ _ H).
		1228	Definition k264 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;12;1] 443246 120.
1460	destruct(batch_even _ _ _ _ H) as [k E].
		1229	Lemma s264: run 7383 k263 = inl k264. Proof. vm_check_eq. Qed.
1461	destruct(first xs), (first ys); cbn [bval] in *; lia.
		1230	Definition k265 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;2;9;2;13;1] 445207 11.
1462	Qed.
		1231	Lemma s265: run 7408 k264 = inl k265. Proof. vm_check_eq. Qed.
1463	Lemma guard_positive k xs f ys n : 0<k -> Batch k xs f ys ->
		1232	Definition k266 := mk [3;1;13;1;8;1;12;3;8;1;13;1;12;1] 447176 3.
1464	k+2<=n+bval(first xs)+bval(first ys) -> 2<=n.
		1233	Lemma s266: run 8011 k265 = inl k266. Proof. vm_check_eq. Qed.
1465	Proof.
		1234	Definition k267 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;1;9;2;12;1] 449165 4.
1466	intros H B G. pose proof(batch_head _ _ _ _ B).
		1235	Lemma s267: run 7992 k266 = inl k267. Proof. vm_check_eq. Qed.
1467	destruct(batch_even _ _ _ _ B) as [j E].
		1236	Definition k268 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;12;1;8;1;12;1] 451066 8.
1468	destruct(first xs), (first ys); cbn [bval] in *; lia.
		1237	Lemma s268: run 8100 k267 = inl k268. Proof. vm_check_eq. Qed.
1469	Qed.
		1238	Definition k269 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 443311 9740.
1471	Lemma batch_split t xs e ys : Batch (1+t) xs e ys ->
		1239	Lemma s269: run 7878 k268 = inl k269. Proof. vm_check_eq. Qed.
1472	exists f zs g, Batch 1 xs f zs /\ Batch t zs g ys /\ e=f+g.
		1240	Definition k270 := mk [9;1;5;1;6;1;9;1;8;1;9;1;12;1] 454983 3.
1473	Proof.
		1241	Lemma s270: run 7834 k269 = inl k270. Proof. vm_check_eq. Qed.
1474	gen t e ys. induction xs as [\|[p n] xs IH]; intros t e ys H.
		1242	Definition k271 := mk [3;1;2;4;3;1;2;1;12;1;9;1;12;1;8;1;13;1;12;1] 456818 4.
1475	- apply batch_nil in H; lia.
		1243	Lemma s271: run 7914 k270 = inl k271. Proof. vm_check_eq. Qed.
1476	- inversion H as [\|t0 p0 n0 xs0 k p' f tail m Hcount HB HG Hgap]; subst.
		1244	Definition k272 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;4;1;3;1;2;1;3;1] 458800 4.
1477	destruct p; cbn [bval] in Hcount.
		1245	Lemma s272: run 7636 k271 = inl k272. Proof. vm_check_eq. Qed.
1478	+ assert (0<k) by (destruct p'; cbn [bval] in *; lia).
		1246	Definition k273 := mk [3;1;2;2;9;4;3;1;2;4;3;2] 459052 1290.
1479	destruct k as [\|k]; [lia\|].
		1247	Lemma s273: run 5868 k272 = inl k273. Proof. vm_check_eq. Qed.
1480	destruct (IH k f tail HB) as [f1 [zs [f2 [B1 [B2 E]]]]].
		1248	Definition k274 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1] 460732 1605.
1481	pose proof(first_one _ _ _ B1) as [F1 F2].
		1249	Lemma s274: run 7338 k273 = inl k274. Proof. vm_check_eq. Qed.
1482	assert (2<=n) by (eapply guard_positive; eauto; destruct HG; lia).
		1250	Definition k275 := mk [3;1;2;2;9;3;3;1;2;4;3;2;8;1;12;1] 464230 150.
1483	exists 2,((false,n-2+f1)::zs),(k*2).
		1251	Lemma s275: run 7533 k274 = inl k275. Proof. vm_check_eq. Qed.
1484	split; [eapply BCons with (k:=1); cbn [bval]; eauto; lia\|].
		1252	Definition k276 := mk [5;1;6;1;13;1;12;1;9;1;12;1;8;2;12;1] 466333 4.
1485	split; [\|lia]. eapply BCons with (k:=k) (f:=f2); cbn [bval]; eauto; lia.
		1253	Lemma s276: run 7770 k275 = inl k276. Proof. vm_check_eq. Qed.
1486	+ exists 0,((true,n)::xs),(k*2).
		1254	Definition k277 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;8;1;13;2;9;1;13;1;12;1] 468259 2.
1487	split; [eapply BCons with (k:=0) (f:=0); cbn [bval]; eauto using batch_refl\|].
		1255	Lemma s277: run 7366 k276 = inl k277. Proof. vm_check_eq. Qed.
1488	split; [eapply BCons; cbn [bval]; eauto; lia\|lia].
		1256	Definition k278 := mk [3;1;2;2;3;1;2;1;3;2;8;1;9;1;12;1;9;1;8;1;9;1;13;1] 470227 4.
1489	Qed.
		1257	Lemma s278: run 7429 k277 = inl k278. Proof. vm_check_eq. Qed.
1491	Open Scope sym_scope.
		1258	Definition k279 := mk [3;1;13;1;12;2;9;1;12;1;9;1;13;1;12;1] 472126 3.
1492	Lemma wall n : segRLs tm h h (W^^n) (W^^n).
		1259	Lemma s279: run 7673 k278 = inl k279. Proof. vm_check_eq. Qed.
1493	Proof. esx. Qed.
		1260	Definition k280 := mk [5;1;6;1;9;1;12;3;13;1] 473984 4.
1494	Lemma wall' n : segRLs tm h' h' (W^^n) (W^^n).
		1261	Lemma s280: run 7833 k279 = inl k280. Proof. vm_check_eq. Qed.
1495	Proof. esx. Qed.
		1262	Definition k281 := mk [2;1;3;1;2;1;3;1;2;1;4;1;12;1;13;3;9;1;12;1;9;1;13;1] 475922 2.
1496	Lemma inc : segRLs tm h [] [1] [0].
		1263	Lemma s281: run 7591 k280 = inl k281. Proof. vm_check_eq. Qed.
1497	Proof. esx. Qed.
		1264	Definition k282 := mk [3;1;9;1;13;2;9;1;8;1;9;1;13;1;12;1] 477754 3.
1498	Lemma carry0 : segRLs tm h h [0;0;1;0;1] [0;1;0;1;1].
		1265	Lemma s282: run 7515 k281 = inl k282. Proof. vm_check_eq. Qed.
1499	Proof. esx. Qed.
		1266	Definition k283 := mk [3;1;2;2;9;4;2;1;13;2;9;1;13;1] 479051 584.
1500	Lemma carry' : segRLs tm h' h' [0;0;1;0;1] [0;1;1;0;1].
		1267	Lemma s283: run 7941 k282 = inl k283. Proof. vm_check_eq. Qed.
1501	Proof. esx. Qed.
		1268	Definition k284 := mk [2;2;6;1;9;1;8;1;12;1;8;1;9;1;13;1;9;1;12;1;9;1] 481633 2.
1502	Lemma leaf0 : segRLs tm h' [] [0;0;0] [0;1;1].
		1269	Lemma s284: run 7806 k283 = inl k284. Proof. vm_check_eq. Qed.
1503	Proof. esx. Qed.
		1270	Definition k285 := mk [3;1;2;2;9;2;2;1;9;1;12;1;13;2;9;1;12;1] 483613 22.
1504	Lemma leaf1 : segRLs tm h' [] [0;0;1;0;0] [1;0;1;0;0].
		1271	Lemma s285: run 7728 k284 = inl k285. Proof. vm_check_eq. Qed.
1505	Proof. esx. Qed.
		1272	Definition k286 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;1;12;2;9;1;13;1] 485660 4.
1506	Lemma stop l r : halts tm (l <* [0] {{C}}> [0;0;1;1] *> r).
		1273	Lemma s286: run 7510 k285 = inl k286. Proof. vm_check_eq. Qed.
1507	Proof.
		1274	Definition k287 := mk [3;1;12;3;8;2;12;1;9;1;13;2] 487650 2.
1508	eapply halts_evstep with (c':=l <* [0] <* [1;1;1] {{F}}> [1] *> r).
		1275	Lemma s287: run 7731 k286 = inl k287. Proof. vm_check_eq. Qed.
1509	2: es. apply halted_halts. reflexivity.
		1276	Definition k288 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;1;12;1;13;1] 489629 6.
1510	Qed.
		1277	Lemma s288: run 7794 k287 = inl k288. Proof. vm_check_eq. Qed.
1511	Lemma carry n : segRLs tm h h (bit true ++ W^^(2+n))
		1278	Definition k289 := mk [3;1;9;1;13;1;9;4;13;1;8;1;9;1;13;1] 491557 2.
1512	(W^^2 ++ bit false ++ W^^n).
		1279	Lemma s289: run 7890 k288 = inl k289. Proof. vm_check_eq. Qed.
1513	Proof. apply (segRLs_concat carry0 (wall n)). Qed.
		1280	Definition k290 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 493409 10.
1514	Open Scope nat_scope.
		1281	Lemma s290: run 7352 k289 = inl k290. Proof. vm_check_eq. Qed.
1516	Lemma batch_one xs e ys : Batch 1 xs e ys ->
		1282	Definition k291 := mk [3;1;4;1;4;1;4;1;13;3;12;1;9;2;12;1] 495337 2.
1517	segRLs tm h [] (words xs) (W^^e ++ words ys).
		1283	Lemma s291: run 7562 k290 = inl k291. Proof. vm_check_eq. Qed.
1518	Proof.
		1284	Definition k292 := mk [3;1;12;1;9;1;12;1;9;3;8;1;13;1;8;1;12;1] 497256 2.
1519	gen e ys. induction xs as [\|[p n] xs IH]; intros e ys H.
		1285	Lemma s292: run 7805 k291 = inl k292. Proof. vm_check_eq. Qed.
1520	- apply batch_nil in H; lia.
		1286	Definition k293 := mk [2;2;6;1;9;2;13;1;12;1;8;1;13;1;8;1;12;1] 499231 2.
1521	- inversion H as [\|t0 p0 n0 xs0 k p' f tail m E HB HG F]; subst.
		1287	Lemma s293: run 7879 k292 = inl k293. Proof. vm_check_eq. Qed.
1522	assert (k=bval p /\ p'=negb p) as [Ek Ep]
		1288	Definition k294 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 394115 107078.
1523	by (destruct p,p'; cbn [bval] in *; intuition lia).
		1289	Lemma s294: run 7463 k293 = inl k294. Proof. vm_check_eq. Qed.
1524	subst k p'. destruct p; cbn [bval negb] in *.
		1290	Definition k295 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 403355 99917.
1525	+ assert (2<=n) by (eapply guard_positive; eauto; destruct HG; lia).
		1291	Lemma s295: run 7580 k294 = inl k295. Proof. vm_check_eq. Qed.
1526	specialize (IH _ _ HB).
		1292	Definition k296 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 503888 1395.
1527	replace m with (n-2+f) by lia.
		1293	Lemma s296: run 7784 k295 = inl k296. Proof. vm_check_eq. Qed.
1528	cbn [words]. rewrite lpow_add. repeat rewrite app_assoc.
		1294	Definition k297 := mk [2;1;9;1;12;1;8;2;12;1;8;2;13;1] 507337 3.
1529	pose proof (segRLs_concat (carry (n-2)) IH) as I.
		1295	Lemma s297: run 7782 k296 = inl k297. Proof. vm_check_eq. Qed.
1530	repeat rewrite app_assoc in I. applys_eq I; flia.
		1296	Definition k298 := mk [2;1;13;1;8;1;12;1;8;1;9;2;8;1;12;1] 509298 3.
1531	+ apply batch_zero in HB. destruct HB; subst.
		1297	Lemma s298: run 7378 k297 = inl k298. Proof. vm_check_eq. Qed.
1532	assert (m=n) by lia. subst m.
		1298	Definition k299 := mk [2;1;9;1;13;1;12;1;9;2;12;1;13;1;12;1] 511265 4.
1533	change (segRLs tm h [] (bit false++W^^n++words xs) (bit true++W^^n++words xs)).
		1299	Lemma s299: run 7639 k298 = inl k299. Proof. vm_check_eq. Qed.
1534	repeat rewrite <-app_assoc. eapply segRLs_concat; [exact inc\|constructor].
		1300	Definition k300 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1;8;1;9;1;8;1;12;1] 513263 10.
1535	Qed.
		1301	Lemma s300: run 7795 k299 = inl k300. Proof. vm_check_eq. Qed.
1536	Lemma batch_spec t xs e ys : Batch t xs e ys ->
		1302	Definition k301 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 515269 3.
1537	segRLs tm (h^^t) [] (words xs) (W^^e ++ words ys).
		1303	Lemma s301: run 7779 k300 = inl k301. Proof. vm_check_eq. Qed.
1538	Proof.
		1304	Definition k302 := mk [2;1;3;1;6;1;9;1;13;1;8;1;9;4;12;1] 517348 3.
1539	gen xs e ys. induction t; intros xs e ys H.
		1305	Lemma s302: run 7551 k301 = inl k302. Proof. vm_check_eq. Qed.
1540	- apply batch_zero in H. destruct H; subst. constructor.
		1306	Definition k303 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1;12;1;9;1;13;1] 519337 17.
1541	- destruct (batch_split _ _ _ _ H) as [f [zs [g [B1 [B2 E]]]]].
		1307	Lemma s303: run 7536 k302 = inl k303. Proof. vm_check_eq. Qed.
1542	subst e. rewrite lpow_add,<-app_assoc.
		1308	Definition k304 := mk [3;1;9;1;13;2;12;1;9;1;8;2;13;1] 521398 2.
1543	change (segRLs tm (h++h^^t) ([]++[]) (words xs) (W^^f++(W^^g++words ys))).
		1309	Lemma s304: run 7649 k303 = inl k304. Proof. vm_check_eq. Qed.
1544	eapply segRLs_trans; [apply batch_one,B1\|].
		1310	Definition k305 := mk [2;1;9;1;12;4;8;1;13;1] 523365 4.
1545	eapply segRLs_concat; [eapply segRLs_wall'',wall\|apply IHt,B2].
		1311	Lemma s305: run 7897 k304 = inl k305. Proof. vm_check_eq. Qed.
1546	Qed.
		1312	Definition k306 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 524933 6.
1548	Definition bn (p:bool) : N := if p then 1%N else 0%N.
		1313	Lemma s306: run 5739 k305 = inl k306. Proof. vm_check_eq. Qed.
1549	Definition half (n:N) : N*bool := match n with
		1314	Definition k307 := mk [3;1;8;1;12;1;9;1;13;1;9;3;13;1;9;2;12;1] 526564 2.
1550	\| N0=>(0%N,false) \| Npos xH=>(0%N,true)
		1315	Lemma s307: run 5114 k306 = inl k307. Proof. vm_check_eq. Qed.
1551	\| Npos (xO p)=>(Npos p,false) \| Npos (xI p)=>(Npos p,true) end.
		1316	Definition k308 := mk [2;1;3;1;2;3;6;1;8;1;12;1;8;1;12;1;8;2;13;1] 527477 2.
1552	Lemma bn_spec p : N.to_nat(bn p)=bval p.
		1317	Lemma s308: run 2587 k307 = inl k308. Proof. vm_check_eq. Qed.
1553	Proof. destruct p; reflexivity. Qed.
		1318	Definition k309 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;4;1;4;1;13;1] 527646 1304.
1554	Lemma half_spec n :
		1319	Lemma s309: run 5200 k308 = inl k309. Proof. vm_check_eq. Qed.
1555	N.to_nat n = N.to_nat(fst(half n))*2+bval(snd(half n)).
		1320	Definition k310 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;2;3;1] 529478 23.
1556	Proof. destruct n as [\|[p\|p\|]]; cbn [half fst snd bval]; lia. Qed.
		1321	Lemma s310: run 2228 k309 = inl k310. Proof. vm_check_eq. Qed.
1557	Definition natcells (xs:list(bool*N)) := map (fun '(p,n)=>(p,N.to_nat n)) xs.
		1322	Definition k311 := mk [3;1;8;2;9;2;13;1;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 530740 3.
1558	Lemma first_natcells xs : first (natcells xs)=first xs.
		1323	Lemma s311: run 4679 k310 = inl k311. Proof. vm_check_eq. Qed.
1559	Proof. destruct xs as [\|[]]; reflexivity. Qed.
		1324	Definition k312 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;2;3;1] 528775 2295.
1561	Fixpoint batch (t:N) (xs:list(boolN)) : option(Nlist(bool*N)) := match xs with
		1325	Lemma s312: run 1299 k311 = inl k312. Proof. vm_check_eq. Qed.
1562	\| []=>if (t=?0)%N then Some(0%N,[]) else None
		1326	Definition k313 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;4;3;2] 532783 3.
1563	\| (p,n)::xs=>
		1327	Lemma s313: run 5835 k312 = inl k313. Proof. vm_check_eq. Qed.
1564	let '(k,p'):=half (t+bn p)%N in
		1328	Definition k314 := mk [3;1;2;2;3;1;2;4;3;1;2;1;13;1;9;2;13;2] 534260 3.
1565	match batch k xs with
		1329	Lemma s314: run 4883 k313 = inl k314. Proof. vm_check_eq. Qed.
1566	\| None=>None
		1330	Definition k315 := mk [3;1;12;1;9;2;8;1;9;3;12;1;13;1] 536090 2.
1567	\| Some(f,ys)=>
		1331	Lemma s315: run 5897 k314 = inl k315. Proof. vm_check_eq. Qed.
1568	if (if (k=?0)%N then true else (k+2<=?n+bn(first xs)+bn(first ys))%N) then
		1332	Definition k316 := mk [3;1;9;1;8;2;9;1;12;1;9;1;13;1;9;1;12;1] 537962 2.
1569	if (2k<=?n+f)%N then Some((2k)%N,(p',(n+f-2*k)%N)::ys) else None
		1333	Lemma s316: run 6714 k315 = inl k316. Proof. vm_check_eq. Qed.
1570	else None end end.
		1334	Definition k317 := mk [2;1;9;2;3;1;2;1;3;1;2;1;4;1;13;1;12;2;9;1;12;1] 539675 2.
1571	Lemma batch_correct t xs e ys : batch t xs=Some(e,ys) ->
		1335	Lemma s317: run 6323 k316 = inl k317. Proof. vm_check_eq. Qed.
1572	Batch (N.to_nat t) (natcells xs) (N.to_nat e) (natcells ys).
		1336	Definition k318 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;1;3;1] 533105 7789.
1573	Proof.
		1337	Lemma s318: run 4658 k317 = inl k318. Proof. vm_check_eq. Qed.
1574	gen t e ys. induction xs as [\|[p n] xs IH]; intros t e ys H; cbn [batch] in H.
		1338	Definition k319 := mk [4;1;4;1;13;2;12;1;13;1;8;1;13;1] 542583 3.
1575	- destruct(N.eqb_spec t 0); inverts H; subst; constructor.
		1339	Lemma s319: run 5988 k318 = inl k319. Proof. vm_check_eq. Qed.
1576	- pose proof(half_spec (t+bn p)) as E.
		1340	Definition k320 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 542556 1364.
1577	destruct(half (t+bn p)%N) as [k p']; cbn [fst snd] in E.
		1341	Lemma s320: run 5156 k319 = inl k320. Proof. vm_check_eq. Qed.
1578	destruct(batch k xs) as [[f zs]\|] eqn:HB; try discriminate.
		1342	Definition k321 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;13;1;9;1;8;2;12;1;13;1] 545430 2.
1579	destruct(N.eqb_spec k 0) as [Ek\|Ek].
		1343	Lemma s321: run 5920 k320 = inl k321. Proof. vm_check_eq. Qed.
1580	+ destruct(N.leb_spec (2*k) (n+f)); inverts H.
		1344	Definition k322 := mk [6;1;4;1;8;1;9;1;12;1;13;2;8;1;13;1] 546724 2.
1581	change (Batch (N.to_nat t) (natcells ((p,n)::xs))
		1345	Lemma s322: run 5428 k321 = inl k322. Proof. vm_check_eq. Qed.
1582	(N.to_nat (2k)) (natcells ((p',(n+f-2k)%N)::zs))).
		1346	Definition k323 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 546854 1617.
1583	rewrite (N.mul_comm 2 k).
		1347	Lemma s323: run 6912 k322 = inl k323. Proof. vm_check_eq. Qed.
1584	cbn [natcells map]. rewrite N2Nat.inj_mul. eapply BCons with (k:=N.to_nat k) (f:=N.to_nat f);
		1348	Definition k324 := mk [2;2;14;1;6;1;9;2;13;1;12;1;13;1;8;1;12;1] 550448 2.
1585	rewrite ?N2Nat.inj_mul,?N2Nat.inj_add,?bn_spec in *; eauto; lia.
		1349	Lemma s324: run 7195 k323 = inl k324. Proof. vm_check_eq. Qed.
1586	+ destruct(N.leb_spec (k+2) (n+bn(first xs)+bn(first zs))) as [Hg\|Hg]; try discriminate.
		1350	Definition k325 := mk [3;1;2;2;9;3;3;1;2;4;3;2] 551850 446.
1587	assert (Hg':N.to_nat(k+2)<=N.to_nat(n+bn(first xs)+bn(first zs))) by lia.
		1351	Lemma s325: run 6900 k324 = inl k325. Proof. vm_check_eq. Qed.
1588	rewrite !N2Nat.inj_add,!bn_spec in Hg'.
		1352	Definition k326 := mk [2;1;3;1;2;1;3;1;2;1;4;1;9;2;12;1;13;1;9;1;13;2] 553886 2.
1589	destruct(N.leb_spec (2*k) (n+f)); inverts H.
		1353	Lemma s326: run 6161 k325 = inl k326. Proof. vm_check_eq. Qed.
1590	change (Batch (N.to_nat t) (natcells ((p,n)::xs))
		1354	Definition k327 := mk [3;1;9;1;13;3;8;1;13;1;12;1] 555827 2.
1591	(N.to_nat (2k)) (natcells ((p',(n+f-2k)%N)::zs))).
		1355	Lemma s327: run 7452 k326 = inl k327. Proof. vm_check_eq. Qed.
1592	rewrite (N.mul_comm 2 k).
		1356	Definition k328 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;12;1;8;1;13;1;8;1;13;1] 557479 6.
1593	cbn [natcells map]. rewrite N2Nat.inj_mul. eapply BCons with (k:=N.to_nat k) (f:=N.to_nat f);
		1357	Lemma s328: run 5877 k327 = inl k328. Proof. vm_check_eq. Qed.
1594	rewrite ?first_natcells,?N2Nat.inj_mul,?N2Nat.inj_add,?bn_spec in *; eauto; lia.
		1358	Definition k329 := mk [9;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;1;9;1;13;1;9;2;12;1;9;1;12;1] 558778 3.
1595	Qed.
		1359	Lemma s329: run 4267 k328 = inl k329. Proof. vm_check_eq. Qed.
1597	Open Scope sym_scope.
		1360	Definition k330 := mk [2;1;12;2;13;1;8;1;13;1;8;1;9;1;13;1;9;1;13;1] 560447 2.
1598	Definition putbit (b:Sym) (r:Runs.t) := match b,r with
		1361	Lemma s330: run 5327 k329 = inl k330. Proof. vm_check_eq. Qed.
1599	\| 0,[]=>[]
		1362	Definition k331 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 561505 9.
1600	\| 0,_=>let '(c,s):=Runs.pop r in
		1363	Lemma s331: run 3535 k330 = inl k331. Proof. vm_check_eq. Qed.
1601	if eqb c 1 then Runs.push W 1 s else Runs.push [0] 1 r
		1364	Definition k332 := mk [7;1;6;1;8;1;12;1;9;2;8;1;9;3;13;1] 562710 2.
1602	\| 1,_=>Runs.push [1] 1 r end.
		1365	Lemma s332: run 4380 k331 = inl k332. Proof. vm_check_eq. Qed.
1603	Lemma putbit_spec b r : Runs.denote(putbit b r)=b >> Runs.denote r.
		1366	Definition k333 := mk [2;1;12;2;8;1;13;1;12;1;8;1;12;1] 564227 2.
1604	Proof.
		1367	Lemma s333: run 5631 k332 = inl k333. Proof. vm_check_eq. Qed.
1605	destruct b.
		1368	Definition k334 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;1;3;1] 565700 60.
1606	- destruct r as [\|[w n] r]; [apply const_unfold\|]. cbn [putbit].
		1369	Lemma s334: run 5051 k333 = inl k334. Proof. vm_check_eq. Qed.
1607	pose proof(Runs.pop_spec ((w,n)::r)) as E.
		1370	Definition k335 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;7;3;1] 566523 40.
1608	destruct(Runs.pop ((w,n)::r)) as [b s].
		1371	Lemma s335: run 2523 k334 = inl k335. Proof. vm_check_eq. Qed.
1609	destruct b; cbn [fst snd] in E.
		1372	Definition k336 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;10;3;1] 566777 70.
1610	+ change (Runs.denote(Runs.push [0] 1 ((w,n)::r)) = 0 >> Runs.denote((w,n)::r)).
		1373	Lemma s336: run 961 k335 = inl k336. Proof. vm_check_eq. Qed.
1611	rewrite Runs.push_spec. reflexivity.
		1374	Definition k337 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 566899 146.
1612	+ change (Runs.denote(Runs.push W 1 s) = 0 >> Runs.denote((w,n)::r)).
		1375	Lemma s337: run 616 k336 = inl k337. Proof. vm_check_eq. Qed.
1613	rewrite Runs.push_spec,E. reflexivity.
		1376	Definition k338 := mk [2;1;9;1;8;1;13;2;9;1;13;1;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;2;3;1;2;1;3;1] 567212 3.
1614	- cbn [putbit]. rewrite Runs.push_spec. reflexivity.
		1377	Lemma s338: run 550 k337 = inl k338. Proof. vm_check_eq. Qed.
1615	Qed.
		1378	Definition k339 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1] 567344 4.
1616	Fixpoint putword w r := match w with
		1379	Lemma s339: run 418 k338 = inl k339. Proof. vm_check_eq. Qed.
1617	\| []=>r \| b::w=>putbit b (putword w r) end.
		1380	Definition k340 := mk [3;1;9;1;13;1;12;1;8;1;13;3;9;1;13;1;12;1] 567782 2.
1618	Lemma putword_spec w r : Runs.denote(putword w r)=w *> Runs.denote r.
		1381	Lemma s340: run 1133 k339 = inl k340. Proof. vm_check_eq. Qed.
1619	Proof. induction w; cbn [putword]; [reflexivity\|rewrite putbit_spec,IHw; reflexivity]. Qed.
		1382	Definition k341 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 569139 4.
1620	Definition takeW r : N*Runs.t := match r with
		1383	Lemma s341: run 4594 k340 = inl k341. Proof. vm_check_eq. Qed.
1621	\| (w,n)::r'=>if eqb w W then (n,r') else (0%N,r)
		1384	Definition k342 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 567263 3677.
1622	\| []=>(0%N,r) end.
		1385	Lemma s342: run 6795 k341 = inl k342. Proof. vm_check_eq. Qed.
1623	Lemma takeW_spec r : Runs.denote r =
		1386	Definition k343 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 565768 6890.
1624	W^^N.to_nat(fst(takeW r)) *> Runs.denote(snd(takeW r)).
		1387	Lemma s343: run 6632 k342 = inl k343. Proof. vm_check_eq. Qed.
1625	Proof.
		1388	Definition k344 := mk [3;1;5;1;7;1;6;1;8;1;13;1;9;2;12;1;9;2;13;1] 574065 2.
1626	destruct r as [\|[w n] r]; [reflexivity\|].
		1389	Lemma s344: run 5308 k343 = inl k344. Proof. vm_check_eq. Qed.
1627	cbn [takeW]. destruct(eqb_spec w W); subst; reflexivity.
		1390	Definition k345 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;12;1] 575086 51.
1628	Qed.
		1391	Lemma s345: run 3983 k344 = inl k345. Proof. vm_check_eq. Qed.
1629	Fixpoint parse fuel r : list(boolN)Runs.t := match fuel,r with
		1392	Definition k346 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 470711 106148.
1630	\| O,_=>([],r) \| _,[]=>([],r)
		1393	Lemma s346: run 6678 k345 = inl k346. Proof. vm_check_eq. Qed.
1631	\| S fuel,_=>let '(b,s):=Runs.pop r in let '(n,s):=takeW s in
		1394	Definition k347 := mk [2;1;3;1;2;3;6;1;9;2;8;2;12;1;9;1;13;2] 578649 2.
1632	let '(xs,s):=parse fuel s in ((eqb b 0,n)::xs,s) end.
		1395	Lemma s347: run 7275 k346 = inl k347. Proof. vm_check_eq. Qed.
1633	Lemma parse_spec fuel r : Runs.denote r =
		1396	Definition k348 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 565105 14613.
1634	words(natcells(fst(parse fuel r))) *> Runs.denote(snd(parse fuel r)).
		1397	Lemma s348: run 4369 k347 = inl k348. Proof. vm_check_eq. Qed.
1635	Proof.
		1398	Definition k349 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 553339 28009.
1636	gen r. induction fuel; intros r; [reflexivity\|].
		1399	Lemma s349: run 6556 k348 = inl k349. Proof. vm_check_eq. Qed.
1637	destruct r as [\|[w n] r]; [reflexivity\|].
		1400	Definition k350 := mk [2;1;9;1;12;1;9;2;8;2;12;1;13;2] 582992 3.
1638	cbn [parse]. pose proof(Runs.pop_spec ((w,n)::r)) as E.
		1401	Lemma s350: run 6342 k349 = inl k350. Proof. vm_check_eq. Qed.
1639	destruct(Runs.pop ((w,n)::r)) as [b s]; cbn [fst snd] in E.
		1402	Definition k351 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 583560 6.
1640	pose proof(takeW_spec s) as E'.
		1403	Lemma s351: run 2660 k350 = inl k351. Proof. vm_check_eq. Qed.
1641	destruct(takeW s) as [m s']; cbn [fst snd] in E'.
		1404	Definition k352 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 583602 261.
1642	specialize(IHfuel s'). destruct(parse fuel s') as [xs z]; cbn [fst snd] in *.
		1405	Lemma s352: run 1363 k351 = inl k352. Proof. vm_check_eq. Qed.
1643	rewrite E,E',IHfuel. destruct b; cbn [eqb natcells map words bit].
		1406	Definition k353 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 558425 25762.
1644	all: rewrite !Str_app_assoc; reflexivity.
		1407	Lemma s353: run 1416 k352 = inl k353. Proof. vm_check_eq. Qed.
1645	Qed.
		1408	Definition k354 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 585261 32.
1646	Fixpoint putcells xs r := match xs with
		1409	Lemma s354: run 4599 k353 = inl k354. Proof. vm_check_eq. Qed.
1647	\| []=>r \| (p,n)::xs=>putword (bit p) (Runs.push W n (putcells xs r)) end.
		1410	Definition k355 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;1] 560410 26439.
1648	Lemma putcells_spec xs r : Runs.denote(putcells xs r)=
		1411	Lemma s355: run 6039 k354 = inl k355. Proof. vm_check_eq. Qed.
1649	words(natcells xs) *> Runs.denote r.
		1412	Definition k356 := mk [3;1;2;4;3;2;9;2;13;1;8;1;12;1;9;2;13;1] 587738 3.
1650	Proof.
		1413	Lemma s356: run 3611 k355 = inl k356. Proof. vm_check_eq. Qed.
1651	induction xs as [\|[p n] xs IH]; [reflexivity\|].
		1414	Definition k357 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;2;3;1] 589141 107.
1652	cbn [putcells natcells map words]. rewrite putword_spec,Runs.push_spec,IH,!Str_app_assoc.
		1415	Lemma s357: run 5902 k356 = inl k357. Proof. vm_check_eq. Qed.
1653	reflexivity.
		1416	Definition k358 := mk [3;1;8;1;12;2;9;1;13;1;9;3;8;1;13;1] 589671 4.
1654	Qed.
		1417	Lemma s358: run 1581 k357 = inl k358. Proof. vm_check_eq. Qed.
1656	Local Opaque Runs.push Runs.pop Runs.remove.
		1418	Definition k359 := mk [3;1;5;1;7;1;6;1;12;1;8;1;9;3;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;1;3;1] 590739 2.
1657	Definition H (b:bool) := if b then h' else h.
		1419	Lemma s359: run 3768 k358 = inl k359. Proof. vm_check_eq. Qed.
1658	Definition start (r:side) := 0inf <* [0] {{C}}> r.
		1420	Definition k360 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;2;3;1;2;1;3;1] 590946 4.
1659	Lemma single b r r' : sideRLs tm (H b) r r' ->
		1421	Lemma s360: run 681 k359 = inl k360. Proof. vm_check_eq. Qed.
1660	sideRL tm (C,[0]) ((if b then D else C),[1]) r r'.
		1422	Definition k361 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 590991 132.
1661	Proof.
		1423	Lemma s361: run 677 k360 = inl k361. Proof. vm_check_eq. Qed.
1662	destruct b; intros I; inverts I;
		1424	Definition k362 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1;2;2;3;1] 583898 7443.
1663	match goal with J:sideRLs _ [] _ _ \|- _=>inverts J end; assumption.
		1425	Lemma s362: run 714 k361 = inl k362. Proof. vm_check_eq. Qed.
1664	Qed.
		1426	Definition k363 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 590966 601.
1665	Lemma emit (b:bool) r :
		1427	Lemma s363: run 798 k362 = inl k363. Proof. vm_check_eq. Qed.
1666	0inf <{{if b then D else C}} [1] > r -->
		1428	Definition k364 := mk [3;1;9;1;12;1;13;2;12;1;13;1;12;1;9;1;13;1;9;1;13;1] 592282 2.
1667	start ((if b then [0;1;0] else W) *> r).
		1429	Lemma s364: run 2056 k363 = inl k364. Proof. vm_check_eq. Qed.
1668	Proof. destruct b; es. Qed.
		1430	Definition k365 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 594077 29.
1669	Lemma returned k r r' : sideRLs tm h r r' ->
		1431	Lemma s365: run 6707 k364 = inl k365. Proof. vm_check_eq. Qed.
1670	start (W^^k > r) --> start (W^^(1+k) *> r').
		1432	Definition k366 := mk [3;1;12;1;13;1;9;1;8;1;13;2;8;1;13;1;12;1] 595907 2.
1671	Proof.
		1433	Lemma s366: run 7291 k365 = inl k366. Proof. vm_check_eq. Qed.
1672	intros I. pose proof(segRLs_sideRLs_concat (wall k) I) as J.
		1434	Definition k367 := mk [7;1;6;1;12;1;8;1;9;2;12;1] 597745 2.
1673	follow100 (single false _ _ J 0inf). follow (emit false (W^^k *> r')). finish.
		1435	Lemma s367: run 7460 k366 = inl k367. Proof. vm_check_eq. Qed.
1674	Qed.
		1436	Definition k368 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1] 599481 86.
1675	Lemma calls t r r' : sideRLs tm (h^^t) r r' ->
		1437	Lemma s368: run 6675 k367 = inl k368. Proof. vm_check_eq. Qed.
1676	forall k, start (W^^k > r) --> start (W^^(k+t) *> r').
		1438	Definition k369 := mk [3;1;2;2;3;1;2;4;3;1;2;1;9;2;13;4] 601455 4.
1677	Proof.
		1439	Lemma s369: run 7177 k368 = inl k369. Proof. vm_check_eq. Qed.
1678	gen r r'. induction t; intros r r' I k.
		1440	Definition k370 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1;2;2;3;1] 601355 1794.
1679	- inverts I. replace (k+0) with k by lia. constructor.
		1441	Lemma s370: run 6913 k369 = inl k370. Proof. vm_check_eq. Qed.
1680	- cbn [lpow h app] in I. inverts I.
		1442	Definition k371 := mk [3;1;9;1;12;1;8;1;13;1;12;1;9;1;8;1;9;1;13;1] 604918 3.
1681	match goal with J:sideRL _ _ _ _ _ \|- _=>
		1443	Lemma s371: run 7325 k370 = inl k371. Proof. vm_check_eq. Qed.
1682	follow (returned k _ _ ltac:(econstructor; [exact J\|constructor])) end.
		1444	Definition k372 := mk [3;1;2;2;3;1;2;4;3;2;13;2;8;1;12;1;9;1;13;1;9;1;13;1] 606593 9.
1683	applys_eq (IHt _ _ ltac:(eassumption) (1+k)); flia.
		1445	Lemma s372: run 6821 k371 = inl k372. Proof. vm_check_eq. Qed.
1684	Qed.
		1446	Definition k373 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 606806 1693.
1685	Lemma bulk_rule t xs e ys k r : batch t xs=Some(e,ys) ->
		1447	Lemma s373: run 7240 k372 = inl k373. Proof. vm_check_eq. Qed.
1686	start (W^^N.to_nat k > words(natcells xs) > r) -->*
		1448	Definition k374 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1;13;1] 610317 5.
1687	start (W^^N.to_nat(k+t+e) > words(natcells ys) > r).
		1449	Lemma s374: run 7478 k373 = inl k374. Proof. vm_check_eq. Qed.
1688	Proof.
		1450	Definition k375 := mk [3;1;9;3;13;1;9;1;13;1;8;1;13;1;12;1] 612167 2.
1689	intros I. pose proof(segRLs_sideRLs_concat
		1451	Lemma s375: run 7614 k374 = inl k375. Proof. vm_check_eq. Qed.
1690	(batch_spec _ _ _ _ (batch_correct _ _ _ _ I)) (sideRLseq_O tm r)) as J.
		1452	Definition k376 := mk [2;1;3;1;2;1;3;1;4;1;4;1;4;1;13;2;9;2;8;1;13;1;9;1;12;1] 614087 2.
1691	rewrite Str_app_assoc in J.
		1453	Lemma s376: run 7601 k375 = inl k376. Proof. vm_check_eq. Qed.
1692	pose proof(calls _ _ _ J (N.to_nat k)) as K.
		1454	Definition k377 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;4;1;4;1;13;1;9;1;13;1] 615726 260.
1693	repeat rewrite <-Str_app_assoc in K. rewrite <-lpow_add in K.
		1455	Lemma s377: run 7416 k376 = inl k377. Proof. vm_check_eq. Qed.
1694	repeat rewrite Str_app_assoc in K. applys_eq K; flia.
		1456	Definition k378 := mk [3;1;2;2;3;1;2;3;13;1;9;1;12;1;9;1;13;2] 617864 13.
1695	Qed.
		1457	Lemma s378: run 7388 k377 = inl k378. Proof. vm_check_eq. Qed.
1697	(* This bound is only a proposal; batch checks the exact linear guard. *)
		1458	Definition k379 := mk [2;1;9;2;8;1;9;1;13;1;12;1;13;1;12;1] 619805 3.
1698	Fixpoint limit (xs:list(bool*N)) : N := match xs with
		1459	Lemma s379: run 7585 k378 = inl k379. Proof. vm_check_eq. Qed.
1699	\| []=>0%N
		1460	Definition k380 := mk [3;1;2;2;3;1;2;1;3;1;2;1;12;1;9;1;8;1;9;1;8;1;13;1;12;1] 621670 4.
1700	\| (p,n)::xs=>
		1461	Lemma s380: run 7604 k379 = inl k380. Proof. vm_check_eq. Qed.
1701	let cap:=(2*limit xs+1-bn p)%N in
		1462	Definition k381 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 623435 27.
1702	match xs with
		1463	Lemma s381: run 7065 k380 = inl k381. Proof. vm_check_eq. Qed.
1703	\| []=>cap
		1464	Definition k382 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 625152 5.
1704	\| (q,_)::_=>N.min cap (2N.max 1 (2N.div2 n+bn q)-bn p-1)%N end end.
		1465	Lemma s382: run 6771 k381 = inl k382. Proof. vm_check_eq. Qed.
1705	Definition bulk r := let '(k,s):=takeW r in
		1466	Definition k383 := mk [3;1;2;2;3;1;2;3;9;1;12;1;9;1;8;1;9;2;13;1] 626967 7.
1706	let '(xs,z):=parse 4096 s in let t:=limit xs in
		1467	Lemma s383: run 6968 k382 = inl k383. Proof. vm_check_eq. Qed.
1707	if (t=?0)%N then None else match batch t xs with
		1468	Definition k384 := mk [2;1;12;1;8;1;12;1;13;1;12;1;13;1;12;1] 628877 2.
1708	\| Some(e,ys)=>Some(Runs.push W (k+t+e) (putcells ys z))
		1469	Lemma s384: run 7870 k383 = inl k384. Proof. vm_check_eq. Qed.
1709	\| None=>None end.
		1470	Definition k385 := mk [2;1;3;1;2;2;3;1;2;1;3;1;2;1;4;1;9;2;12;1;13;1;8;1;13;1;9;1;13;1] 630883 2.
1710	Lemma bulk_correct r s : bulk r=Some s -> start(Runs.denote r) -->* start(Runs.denote s).
		1471	Lemma s385: run 7857 k384 = inl k385. Proof. vm_check_eq. Qed.
1711	Proof.
		1472	Definition k386 := mk [2;1;3;1;2;1;3;1;9;3;13;1;8;2;12;2] 632843 2.
1712	unfold bulk. pose proof(takeW_spec r) as E.
		1473	Lemma s386: run 7324 k385 = inl k386. Proof. vm_check_eq. Qed.
1713	destruct(takeW r) as [k r0]; cbn [fst snd] in E.
		1474	Definition k387 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 634643 171.
1714	pose proof(parse_spec 4096 r0) as E'.
		1475	Lemma s387: run 7574 k386 = inl k387. Proof. vm_check_eq. Qed.
1715	destruct(parse 4096 r0) as [xs z]; cbn [fst snd] in E'.
		1476	Definition k388 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;9;1;8;1;9;1;13;2] 636689 11.
1716	destruct(N.eqb (limit xs) 0); try discriminate.
		1477	Lemma s388: run 7695 k387 = inl k388. Proof. vm_check_eq. Qed.
1717	destruct(batch (limit xs) xs) as [[e ys]\|] eqn:I; intros J; [\|discriminate].
		1478	Definition k389 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;13;1] 637672 936.
1718	injection J as J. subst s.
		1479	Lemma s389: run 7773 k388 = inl k389. Proof. vm_check_eq. Qed.
1719	rewrite E,E',Runs.push_spec,putcells_spec. apply bulk_rule,I.
		1480	Definition k390 := mk [2;2;6;1;9;4;12;1;9;1;8;1;13;1;12;1] 640532 2.
1720	Qed.
		1481	Lemma s390: run 7093 k389 = inl k390. Proof. vm_check_eq. Qed.
1722	Inductive outcome := Failed \| Returned (b:bool) (r:Runs.t) \| Stopped.
		1482	Definition k391 := mk [3;1;2;2;9;3;3;1;2;4;3;1;9;1;5;1;6;1] 642217 169.
1723	Definition outcome_spec (r:side) o := match o with
		1483	Lemma s391: run 7626 k390 = inl k391. Proof. vm_check_eq. Qed.
1724	\| Failed=>True
		1484	Definition k392 := mk [2;1;5;1;7;1;6;1;8;1;9;1;12;1;13;1;9;1;13;2] 644216 2.
1725	\| Returned b s=>sideRLs tm (H b) r (Runs.denote s)
		1485	Lemma s392: run 7908 k391 = inl k392. Proof. vm_check_eq. Qed.
1726	\| Stopped=>forall l,halts tm (l <* [0] {{C}}> r) end.
		1486	Definition k393 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 614552 31585.
1727	Definition resume (f:bool->Runs.t->Runs.t) o := match o with
		1487	Lemma s393: run 7580 k392 = inl k393. Proof. vm_check_eq. Qed.
1728	\| Returned b s=>Returned b (f b s) \| Failed=>Failed \| Stopped=>Stopped end.
		1488	Definition k394 := mk [3;1;2;2;9;2;3;1;2;4;3;2;8;1;13;3] 648000 67.
1729	Lemma resume_correct w v f r o :
		1489	Lemma s394: run 7208 k393 = inl k394. Proof. vm_check_eq. Qed.
1730	(forall b,segRLs tm (H b) (H b) w (v b)) ->
		1490	Definition k395 := mk [3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;1;12;1] 650042 6.
1731	(forall b s,Runs.denote(f b s)=v b *> Runs.denote s) ->
		1491	Lemma s395: run 7415 k394 = inl k395. Proof. vm_check_eq. Qed.
1732	outcome_spec r o -> outcome_spec (w *> r) (resume f o).
		1492	Definition k396 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1;12;1] 651935 5.
1733	Proof.
		1493	Lemma s396: run 7490 k395 = inl k396. Proof. vm_check_eq. Qed.
1734	intros R F I. destruct o; cbn [outcome_spec resume] in *; [trivial\| \|].
		1494	Definition k397 := mk [3;1;2;2;3;1;2;4;3;1;2;1;9;2;8;1;9;1;8;1;13;2] 653816 3.
1735	- rewrite F. eapply segRLs_sideRLs_concat; eauto.
		1495	Lemma s397: run 7751 k396 = inl k397. Proof. vm_check_eq. Qed.
1736	- intros l. apply (sideRLs_halt_single tm (C,[0]) (C,[1]) (w *> r)).
		1496	Definition k398 := mk [2;1;9;1;8;2;9;3;13;2;9;1;13;2] 655689 3.
1737	eapply segRLs_sideRLs_halt_concat; [apply (R false)\|constructor; exact I].
		1497	Lemma s398: run 6935 k397 = inl k398. Proof. vm_check_eq. Qed.
1738	Qed.
		1498	Definition k399 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;13;1;9;1;13;2] 656575 28.
1739	Lemma leaf_correct b w v r s :
		1499	Lemma s399: run 2627 k398 = inl k399. Proof. vm_check_eq. Qed.
1740	segRLs tm (H b) [] w v -> Runs.remove w r=Some s ->
		1500	Definition k400 := mk [2;1;13;1;9;2;13;2;9;1;12;1] 657868 5.
1741	outcome_spec (Runs.denote r) (Returned b (putword v s)).
		1501	Lemma s400: run 3890 k399 = inl k400. Proof. vm_check_eq. Qed.
1742	Proof.
		1502	Definition k401 := mk [3;1;2;2;3;1;2;2;3;1;2;3;9;1;13;1;9;2;13;2;9;1;13;1] 659137 4.
1743	intros R E. cbn [outcome_spec]. rewrite (Runs.remove_spec _ _ _ E),putword_spec.
		1503	Lemma s401: run 4088 k400 = inl k401. Proof. vm_check_eq. Qed.
1744	exact (segRLs_sideRLs_concat R (sideRLseq_O tm _)).
		1504	Definition k402 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;1] 658471 2057.
1745	Qed.
		1505	Lemma s402: run 5018 k401 = inl k402. Proof. vm_check_eq. Qed.
1746	Fixpoint call fuel r : outcome := match fuel with
		1506	Definition k403 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 660165 2138.
1747	\| O=>Failed
		1507	Lemma s403: run 6490 k402 = inl k403. Proof. vm_check_eq. Qed.
1748	\| S fuel=>let '(n,s):=takeW r in
		1508	Definition k404 := mk [2;2;6;1;12;1;13;1;8;1;9;1;13;1;9;1;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 664049 2.
1749	if (n=?0)%N then
		1509	Lemma s404: run 5965 k403 = inl k404. Proof. vm_check_eq. Qed.
1750	match Runs.remove [1] r with
		1510	Definition k405 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 664509 34.
1751	\| Some s=>Returned false (putword [0] s)
		1511	Lemma s405: run 1423 k404 = inl k405. Proof. vm_check_eq. Qed.
1752	\| None=>match Runs.remove [0;0;0] r with
		1512	Definition k406 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 665667 29.
1753	\| Some s=>Returned true (putword [0;1;1] s)
		1513	Lemma s406: run 3863 k405 = inl k406. Proof. vm_check_eq. Qed.
1754	\| None=>match Runs.remove [0;0;1;0;0] r with
		1514	Definition k407 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;2;2;2;3;1;2;1;3;1] 666192 46.
1755	\| Some s=>Returned true (putword [1;0;1;0;0] s)
		1515	Lemma s407: run 1561 k406 = inl k407. Proof. vm_check_eq. Qed.
1756	\| None=>match Runs.remove [0;0;1;1] r with
		1516	Definition k408 := mk [7;1;6;1;12;1;8;1;12;1;8;2;13;3] 667858 2.
1757	\| Some _=>Stopped
		1517	Lemma s408: run 5743 k407 = inl k408. Proof. vm_check_eq. Qed.
1758	\| None=>match Runs.remove [0;0;1;0;1] r with
		1518	Definition k409 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;1] 669217 42.
1759	\| Some s=>resume (fun b=>putword (if b then [0;1;1;0;1] else [0;1;0;1;1])) (call fuel s)
		1519	Lemma s409: run 5397 k408 = inl k409. Proof. vm_check_eq. Qed.
1760	\| None=>Failed end end end end end
		1520	Definition k410 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;13;2;12;2] 670098 5.
1761	else resume (fun _=>Runs.push W n) (call fuel s) end.
		1521	Lemma s410: run 3130 k409 = inl k410. Proof. vm_check_eq. Qed.
1762	Lemma call_correct fuel r : outcome_spec (Runs.denote r) (call fuel r).
		1522	Definition k411 := mk [3;1;8;1;12;2;9;1;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 671668 4.
1763	Proof.
		1523	Lemma s411: run 6001 k410 = inl k411. Proof. vm_check_eq. Qed.
1764	gen r. induction fuel; intros r; [exact I\|].
		1524	Definition k412 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;1] 672103 92.
1765	cbn [call]. pose proof(takeW_spec r) as E.
		1525	Lemma s412: run 1935 k411 = inl k412. Proof. vm_check_eq. Qed.
1766	destruct(takeW r) as [n s]; cbn [fst snd] in E.
		1526	Definition k413 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2;2;1;3;1] 667112 5201.
1767	destruct(N.eqb n 0).
		1527	Lemma s413: run 397 k412 = inl k413. Proof. vm_check_eq. Qed.
1768	- destruct(Runs.remove [1] r) as [s1\|] eqn:E1.
		1528	Definition k414 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;5;3;1;2;1;3;1] 672418 28.
1769	+ eapply leaf_correct; [exact inc\|exact E1].
		1529	Lemma s414: run 330 k413 = inl k414. Proof. vm_check_eq. Qed.
1770	+ destruct(Runs.remove [0;0;0] r) as [s1\|] eqn:E1'.
		1530	Definition k415 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;2;2;1;3;1] 672483 103.
1771	* eapply leaf_correct; [exact leaf0\|exact E1'].
		1531	Lemma s415: run 438 k414 = inl k415. Proof. vm_check_eq. Qed.
1772	* destruct(Runs.remove [0;0;1;0;0] r) as [s1\|] eqn:E2.
		1532	Definition k416 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;2;3;1;2;1;3;1] 672630 107.
1773	-- eapply leaf_correct; [exact leaf1\|exact E2].
		1533	Lemma s416: run 474 k415 = inl k416. Proof. vm_check_eq. Qed.
1774	-- destruct(Runs.remove [0;0;1;1] r) as [s1\|] eqn:E3.
		1534	Definition k417 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 672993 1285.
1775	++ cbn [outcome_spec]. rewrite (Runs.remove_spec _ _ _ E3). intros l; apply stop.
		1535	Lemma s417: run 5753 k416 = inl k417. Proof. vm_check_eq. Qed.
1776	++ destruct(Runs.remove [0;0;1;0;1] r) as [s1\|] eqn:E4; [\|exact I].
		1536	Definition k418 := mk [3;1;4;1;4;1;4;1;9;1;12;1;13;1;12;1;9;1;13;1] 675751 2.
1777	rewrite (Runs.remove_spec _ _ _ E4).
		1537	Lemma s418: run 5947 k417 = inl k418. Proof. vm_check_eq. Qed.
1778	eapply resume_correct with
		1538	Definition k419 := mk [2;1;9;1;13;2;12;1;9;1;12;1;13;1;12;1] 677598 3.
1779	(v:=fun b:bool=>if b then [0;1;1;0;1] else [0;1;0;1;1]).
		1539	Lemma s419: run 7342 k418 = inl k419. Proof. vm_check_eq. Qed.
1780	** intros []; [exact carry'\|exact carry0].
		1540	Definition k420 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;12;1;9;2;12;1] 679510 3.
1781	** intros; apply putword_spec.
		1541	Lemma s420: run 7278 k419 = inl k420. Proof. vm_check_eq. Qed.
1782	** apply IHfuel.
		1542	Definition k421 := mk [2;1;12;1;13;1;9;1;13;1;8;1;13;2;9;1;12;1] 681357 3.
1783	- rewrite E. eapply resume_correct with (v:=fun _=>W^^N.to_nat n).
		1543	Lemma s421: run 6993 k420 = inl k421. Proof. vm_check_eq. Qed.
1784	+ intros []; [apply wall'\|apply wall].
		1544	Definition k422 := mk [2;1;5;1;7;1;6;1;12;1;13;1;9;1;13;1;12;1;8;1;9;1;13;1] 683242 2.
1785	+ intros; apply Runs.push_spec.
		1545	Lemma s422: run 7420 k421 = inl k422. Proof. vm_check_eq. Qed.
1786	+ apply IHfuel.
		1546	Definition k423 := mk [3;1;9;1;13;1;9;1;13;1;8;1;13;3] 685199 3.
1787	Qed.
		1547	Lemma s423: run 7503 k422 = inl k423. Proof. vm_check_eq. Qed.
1788	Definition advance r : Runs.t+unit := match bulk r with
		1548	Definition k424 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1;9;1;13;1] 687169 9.
1789	\| Some s=>inl s
		1549	Lemma s424: run 7461 k423 = inl k424. Proof. vm_check_eq. Qed.
1790	\| None=>match call 4096 r with
		1550	Definition k425 := mk [3;1;8;1;4;1;4;1;4;1;13;1;9;2;13;3;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 688764 2.
1791	\| Returned b s=>inl(putword (if b then [0;1;0] else W) s)
		1551	Lemma s425: run 5134 k424 = inl k425. Proof. vm_check_eq. Qed.
1792	\| Stopped=>inr tt \| Failed=>inl r end end.
		1552	Definition k426 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 689486 47.
1793	Lemma advance_correct r : match advance r with
		1553	Lemma s426: run 2347 k425 = inl k426. Proof. vm_check_eq. Qed.
1794	\| inl s=>start(Runs.denote r) -->* start(Runs.denote s)
		1554	Definition k427 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;2] 691039 31.
1795	\| inr _=>halts tm (start(Runs.denote r)) end.
		1555	Lemma s427: run 4593 k426 = inl k427. Proof. vm_check_eq. Qed.
1796	Proof.
		1556	Definition k428 := mk [3;1;2;2;9;3;2;1;13;2;8;1;13;1;9;1] 692618 74.
1797	unfold advance. destruct(bulk r) as [s\|] eqn:E; [eapply bulk_correct; exact E\|].
		1557	Lemma s428: run 5814 k427 = inl k428. Proof. vm_check_eq. Qed.
1798	pose proof(call_correct 4096 r) as I.
		1558	Definition k429 := mk [9;1;5;1;6;1;13;1;8;2;13;2;8;1;13;1] 694522 3.
1799	destruct(call 4096 r); cbn [outcome_spec] in I; [constructor\| \|exact(I 0inf)].
		1559	Lemma s429: run 6960 k428 = inl k429. Proof. vm_check_eq. Qed.
1800	rewrite putword_spec. follow100 (single _ _ _ I 0inf). apply emit.
		1560	Definition k430 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 696434 19.
1801	Qed.
		1561	Lemma s430: run 6964 k429 = inl k430. Proof. vm_check_eq. Qed.
1802	Definition initial : Runs.t := [(W,2%N)].
		1562	Definition k431 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 697651 102.
1803	Lemma init : c0 -->* start(Runs.denote initial).
		1563	Lemma s431: run 4045 k430 = inl k431. Proof. vm_check_eq. Qed.
1804	Proof. unfold start,initial,Runs.denote,W. esx. Qed.
		1564	Definition k432 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 699590 24.
1805	Definition check fuel := match N_iter_until advance (inl initial) fuel with
		1565	Lemma s432: run 5879 k431 = inl k432. Proof. vm_check_eq. Qed.
1806	\| inl _=>false \| inr _=>true end.
		1566	Definition k433 := mk [7;1;6;1;8;2;12;1;13;2;8;1;9;1] 701332 2.
1807	Theorem check_spec fuel : check fuel=true -> halts tm c0.
		1567	Lemma s433: run 6529 k432 = inl k433. Proof. vm_check_eq. Qed.
1808	Proof.
		1568	Definition k434 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;4;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 703145 4.
1809	pose proof(@N_iter_until_spec Runs.t unit advance (inl initial) fuel
		1569	Lemma s434: run 7110 k433 = inl k434. Proof. vm_check_eq. Qed.
1810	(fun r=>c0 -->* start(Runs.denote r)) (fun _=>halts tm c0)) as I.
		1570	Definition k435 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 704792 33.
1811	assert (S:forall r,c0 -->* start(Runs.denote r) ->
		1571	Lemma s435: run 6155 k434 = inl k435. Proof. vm_check_eq. Qed.
1812	match advance r with
		1572	Definition k436 := mk [3;1;2;2;9;3;3;1;2;1;3;1;2;1;12;3] 706428 8.
1813	\| inl s=>c0 -->* start(Runs.denote s) \| inr _=>halts tm c0 end).
		1573	Lemma s436: run 6139 k435 = inl k436. Proof. vm_check_eq. Qed.
1814	{ intros r E. pose proof(advance_correct r) as J. destruct(advance r).
		1574	Definition k437 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;3] 708183 60.
1815	- eapply evstep_trans; eauto.
		1575	Lemma s437: run 7349 k436 = inl k437. Proof. vm_check_eq. Qed.
1816	- eapply halts_evstep; eauto. }
		1576	Definition k438 := mk [3;1;2;2;9;5;2;1;13;1;8;1;12;1] 706682 3367.
1817	specialize(I S init).
		1577	Lemma s438: run 7984 k437 = inl k438. Proof. vm_check_eq. Qed.
1818	assert (F:forall x:Runs.t+unit,
		1578	Definition k439 := mk [3;1;8;2;12;1;13;1;9;4;13;1] 711949 3.
1819	(match x with inl r=>c0 -->* start(Runs.denote r) \| inr _=>halts tm c0 end) ->
		1579	Lemma s439: run 7521 k438 = inl k439. Proof. vm_check_eq. Qed.
1820	(match x with inl _=>false \| inr _=>true end)=true -> halts tm c0).
		1580	Definition k440 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;5;1;6;1;8;1;13;2;9;1;12;1] 713570 4.
1821	{ intros [r\|u]; cbn; [discriminate\|tauto]. }
		1581	Lemma s440: run 6729 k439 = inl k440. Proof. vm_check_eq. Qed.
1822	exact (F _ I).
		1582	Definition k441 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 715203 4.
1823	Qed.
		1583	Lemma s441: run 7020 k440 = inl k441. Proof. vm_check_eq. Qed.
1825	Local Transparent Runs.push Runs.pop Runs.remove.
		1584	Definition k442 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 715556 1284.
1826	Theorem halt: halts tm c0.
		1585	Lemma s442: run 6739 k441 = inl k442. Proof. vm_check_eq. Qed.
1827	Proof. apply (check_spec 100000%N). native_check_eq. Qed.
		1586	Definition k443 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;12;1;8;2;9;1;13;1] 718248 29.
1828	End TM91.
		1587	Lemma s443: run 6666 k442 = inl k443. Proof. vm_check_eq. Qed.
1830	Module TM94.
		1588	Definition k444 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;1;3;1;2;1;13;3;9;6;2;3;3;1;2;1;3;1] 719348 492.
1831	Import Sk1Check Sk1Counter7 Sk1Auto94.
		1589	Lemma s444: run 6331 k443 = inl k444. Proof. vm_check_eq. Qed.
1832	Open Scope sym_scope.
		1590	Definition k445 := mk [2;1;3;1;2;1;3;1;9;1;12;1;8;1;9;3;12;1;13;2] 721499 2.
1834	Definition tm := Eval compute in (TM_from_str "1RB1RB_1LC1RF_1RA1LD_1RE0LC_---1RC_1LC0RD").
		1591	Lemma s445: run 6255 k444 = inl k445. Proof. vm_check_eq. Qed.
1835	Notation "c -->* c'" := (c -[tm]->* c') (at level 40).
		1592	Definition k446 := mk [2;2;6;1;12;1;9;1;8;2;9;2;12;1;13;1;9;1;13;1] 723135 2.
1836	Definition h : list (DH0*DH0) := [((D,<[1;1;1;1;1;0]),(C,[0;1;0;1]))].
		1593	Lemma s446: run 6157 k445 = inl k446. Proof. vm_check_eq. Qed.
1837	Definition start (r:side) := 0inf <* <[1;1;1;1;1;0] {{D}}> r.
		1594	Definition k447 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;2] 659272 65578.
1838	Lemma wall n : segRLs tm h h (W^^n) (W^^n).
		1595	Lemma s447: run 6598 k446 = inl k447. Proof. vm_check_eq. Qed.
1839	Proof. esx. Qed.
		1596	Definition k448 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 726611 11.
1840	Lemma inc0 : segRLs tm h [] (word D0)
		1597	Lemma s448: run 7131 k447 = inl k448. Proof. vm_check_eq. Qed.
1841	(W ++ word D1).
		1598	Definition k449 := mk [3;1;2;4;3;1;2;1;13;1;12;1;9;2;12;1;13;1;9;4;12;1;13;1] 728208 4.
1842	Proof. esx. Qed.
		1599	Lemma s449: run 6615 k448 = inl k449. Proof. vm_check_eq. Qed.
1843	Lemma inc1 : segRLs tm h [] (word D1 ++ W)
		1600	Definition k450 := mk [5;1;6;1;13;1;9;3;13;1] 729996 5.
1844	(W ++ word D2).
		1601	Lemma s450: run 6949 k449 = inl k450. Proof. vm_check_eq. Qed.
1845	Proof. esx. Qed.
		1602	Definition k451 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;4;1;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 731714 4.
1846	Lemma inc2 : segRLs tm h [] (word D2 ++ W)
		1603	Lemma s451: run 6881 k450 = inl k451. Proof. vm_check_eq. Qed.
1847	(word D3).
		1604	Definition k452 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;12;2;9;1;12;1] 733286 90.
1848	Proof. esx. Qed.
		1605	Lemma s452: run 7343 k451 = inl k452. Proof. vm_check_eq. Qed.
1849	Lemma inc3 : segRLs tm h [] (word D3)
		1606	Definition k453 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;13;2;12;1] 734313 835.
1850	(W ++ word D4).
		1607	Lemma s453: run 7878 k452 = inl k453. Proof. vm_check_eq. Qed.
1851	Proof. esx. Qed.
		1608	Definition k454 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 653024 83943.
1852	Lemma inc4 : segRLs tm h [] (word D4)
		1609	Lemma s454: run 7941 k453 = inl k454. Proof. vm_check_eq. Qed.
1853	(word D5).
		1610	Definition k455 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 737295 1309.
1854	Proof. esx. Qed.
		1611	Lemma s455: run 7279 k454 = inl k455. Proof. vm_check_eq. Qed.
1855	Lemma inc5 : segRLs tm h [] (word D5)
		1612	Definition k456 := mk [3;1;8;1;13;1;12;1;9;1;13;1;9;1;8;1;9;1;13;1] 740255 2.
1856	(W ++ word D6).
		1613	Lemma s456: run 7462 k455 = inl k456. Proof. vm_check_eq. Qed.
1857	Proof. esx. Qed.
		1614	Definition k457 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;9;2;12;1;13;1;12;1] 742006 40.
1858	Lemma inc6 : segRLs tm h h (word D6)
		1615	Lemma s457: run 8128 k456 = inl k457. Proof. vm_check_eq. Qed.
1859	(word D0).
		1616	Definition k458 := mk [3;1;9;3;8;1;13;1;8;2;12;1;9;1;13;1] 743933 2.
1860	Proof. esx. Qed.
		1617	Lemma s458: run 8025 k457 = inl k458. Proof. vm_check_eq. Qed.
1861	Lemma one p n : segRLs tm h (h^^carry p) (word p ++ W^^(take p+n))
		1618	Definition k459 := mk [3;1;2;1;4;1;13;1;9;2;13;1;12;2;13;2;12;1] 745790 2.
1862	(W^^give p ++ word (next p) ++ W^^n).
		1619	Lemma s459: run 7776 k458 = inl k459. Proof. vm_check_eq. Qed.
1863	Proof.
		1620	Definition k460 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 732401 15060.
1864	destruct p; cbn [take give carry next lpow Nat.add]; rewrite ?app_nil_r;
		1621	Lemma s460: run 6897 k459 = inl k460. Proof. vm_check_eq. Qed.
1865	repeat rewrite app_assoc; eapply segRLs_concat;
		1622	Definition k461 := mk [2;1;12;2;9;1;12;1;13;1;8;1;13;1;9;1;13;1] 749065 2.
1866	eauto using inc0,inc1,inc2,inc3,inc4,inc5,inc6,segRLs_O,wall.
		1623	Lemma s461: run 6695 k460 = inl k461. Proof. vm_check_eq. Qed.
1867	Qed.
		1624	Definition k462 := mk [3;1;2;2;9;3;3;1;2;1;3;1;8;1;4;1;4;1;9;1;13;1] 750934 10.
1868	Lemma emit r : 0inf <{{C}} [0;1;0;1] > r --> start r.
		1625	Lemma s462: run 7743 k461 = inl k462. Proof. vm_check_eq. Qed.
1869	Proof. es. Qed.
		1626	Definition k463 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 752561 264.
1870	Lemma calls_spec t r r' : sideRLs tm (h^^t) r r' -> start r -->* start r'.
		1627	Lemma s463: run 7801 k462 = inl k463. Proof. vm_check_eq. Qed.
1871	Proof.
		1628	Definition k464 := mk [3;1;2;1;4;1;9;2;12;1;9;3;13;1;9;1] 754460 2.
1872	gen r r'. induction t; intros r r' H; cbn [lpow h app] in H.
		1629	Lemma s464: run 6610 k463 = inl k464. Proof. vm_check_eq. Qed.
1873	- inverts H. constructor.
		1630	Definition k465 := mk [2;1;9;2;2;1;6;1;8;2;13;3;8;1;13;1] 756252 2.
1874	- inverts H.
		1631	Lemma s465: run 7263 k464 = inl k465. Proof. vm_check_eq. Qed.
1875	match goal with Hret : sideRL _ _ _ _ _ \|- _ => follow100 Hret end.
		1632	Definition k466 := mk [2;1;5;1;7;1;6;1;12;1;13;2;9;1;13;1;12;1;13;1;9;6;2;2;3;2;2;1;3;1] 757996 2.
1876	follow emit. apply IHt; assumption.
		1633	Lemma s466: run 7318 k465 = inl k466. Proof. vm_check_eq. Qed.
1877	Qed.
		1634	Definition k467 := mk [3;1;2;2;9;2;3;1;2;4;3;1;5;1;6;1;13;2;12;1] 759521 104.
1878	Lemma batch_step t xs e ys k r : batch t xs=Some(e,ys) ->
		1635	Lemma s467: run 7166 k466 = inl k467. Proof. vm_check_eq. Qed.
1879	start (W^^N.to_nat k > cell_word xs > r) -->*
		1636	Definition k468 := mk [3;1;2;4;3;1;2;1;12;1;13;1;8;2;13;2;9;4;13;1] 761347 3.
1880	start (W^^N.to_nat(k+e) > cell_word ys > r).
		1637	Lemma s468: run 7453 k467 = inl k468. Proof. vm_check_eq. Qed.
1881	Proof.
		1638	Definition k469 := mk [7;1;6;1;9;2;13;1;8;1;12;2;9;2;13;1] 762994 2.
1882	intros H. apply (calls_spec (N.to_nat t)).
		1639	Lemma s469: run 6807 k468 = inl k469. Proof. vm_check_eq. Qed.
1883	rewrite N2Nat.inj_add,lpow_add,Str_app_assoc.
		1640	Definition k470 := mk [2;1;3;1;2;3;4;1;8;1;12;1;13;2;9;2;13;2] 764755 2.
1884	eapply segRLs_sideRLs_concat; [apply walls,wall\|].
		1641	Lemma s470: run 7218 k469 = inl k470. Proof. vm_check_eq. Qed.
1885	pose proof (segRLs_sideRLs_concat
		1642	Definition k471 := mk [2;2;4;1;13;1;9;1;13;1;12;1;9;2;8;1;9;1;13;1] 766525 2.
1886	(batch_spec tm h wall one t xs e ys H) (sideRLseq_O tm r)) as I.
		1643	Lemma s471: run 7323 k470 = inl k471. Proof. vm_check_eq. Qed.
1887	rewrite Str_app_assoc in I. exact I.
		1644	Definition k472 := mk [2;2;4;1;8;6;12;1;13;1;12;1] 768231 2.
1888	Qed.
		1645	Lemma s472: run 7695 k471 = inl k472. Proof. vm_check_eq. Qed.
1889	Definition scans : list Sk1Counter.scan := [
		1646	Definition k473 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 769438 7.
1890	Sk1Counter.Scan D R [0;1;0;1;1;1] [1;1;1;1;1;0] [];
		1647	Lemma s473: run 5122 k472 = inl k473. Proof. vm_check_eq. Qed.
1891	Sk1Counter.Scan C L [0;1;1;1;1;1] [0;1;0;1;1;1] [];
		1648	Definition k474 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;13;1;12;1;13;2] 770960 104.
1892	Sk1Counter.Scan D L [1;0;1;1;1;1] [1;0;1;0;1;1] [];
		1649	Lemma s474: run 6898 k473 = inl k474. Proof. vm_check_eq. Qed.
1893	Sk1Counter.Scan C L [1;1;0;1;1;1] [1;0;1;0;1;1] [0];
		1650	Definition k475 := mk [2;2;6;1;9;2;13;1;8;1;9;1;12;1;13;1;9;1;13;1] 772872 2.
1894	Sk1Counter.Scan C L [1;1;1;1;0;1] [1;0;1;0;1;1] [0;1;0];
		1651	Lemma s475: run 7302 k474 = inl k475. Proof. vm_check_eq. Qed.
1895	Sk1Counter.Scan D L [1;1;1;1;0;1] [1;0;1;0;1;1] [1;0];
		1652	Definition k476 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 774570 13.
1896	Sk1Counter.Scan C L [1;1;1;1;1;0] [1;0;1;0;1;1] [0;1;0];
		1653	Lemma s476: run 7835 k475 = inl k476. Proof. vm_check_eq. Qed.
1897	Sk1Counter.Scan D L [1;1;1;1;1;0] [1;0;1;0;1;1] [1;0;1;0];
		1654	Definition k477 := mk [2;1;13;1;12;1;13;1;9;1;13;1] 776415 3.
1898	Sk1Counter.Scan D R [1;1;1] [1;1;1] [0];
		1655	Lemma s477: run 7900 k476 = inl k477. Proof. vm_check_eq. Qed.
1899	Sk1Counter.Scan C L [0;1] [1;1] [0;1;0];
		1656	Definition k478 := mk [3;1;12;1;13;1;8;3;12;1;9;1;8;1;9;1;13;1] 778282 2.
1900	Sk1Counter.Scan D L [0;1] [1;1] [1;0];
		1657	Lemma s478: run 7901 k477 = inl k478. Proof. vm_check_eq. Qed.
1901	Sk1Counter.Scan C L [1;1] [0;1] [];
		1658	Definition k479 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;5;1;6;1;13;1;12;1] 779771 266.
1902	Sk1Counter.Scan D L [1;1] [1;0] []].
		1659	Lemma s479: run 7541 k478 = inl k479. Proof. vm_check_eq. Qed.
1903	Lemma scans_valid : Forall (Sk1Counter.scan_valid tm) scans.
		1660	Definition k480 := mk [3;1;2;2;9;4;3;1;2;4;3;2;13;1;12;1;9;1] 781145 545.
1904	Proof.
		1661	Lemma s480: run 6907 k479 = inl k480. Proof. vm_check_eq. Qed.
1905	unfold scans. repeat (apply Forall_cons; [solve [unfold Sk1Counter.scan_valid;
		1662	Definition k481 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;4;1;5;1;6;1;13;1;9;5;12;1;2;2;3;1] 783369 3.
1906	cbn [Sk1Counter.scan_q Sk1Counter.scan_dir Sk1Counter.scan_in
		1663	Lemma s481: run 7249 k480 = inl k481. Proof. vm_check_eq. Qed.
1907	Sk1Counter.scan_out Sk1Counter.scan_context rev app]; intros; shift_rule; es]\|]).
		1664	Definition k482 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1;2;2;3;1] 757386 26264.
1908	constructor.
		1665	Lemma s482: run 1364 k481 = inl k482. Proof. vm_check_eq. Qed.
1909	Qed.
		1666	Definition k483 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 718332 65492.
1910	Theorem halt: halts tm c0.
		1667	Lemma s483: run 811 k482 = inl k483. Proof. vm_check_eq. Qed.
1911	Proof.
		1668	Definition k484 := mk [2;1;9;3;8;1;9;1;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;2;2;1;3;1] 784024 4.
1912	apply (Sk1Auto.check_spec 1 Sk1Auto94.auto_bulk tm scans scans_valid
		1669	Lemma s484: run 812 k483 = inl k484. Proof. vm_check_eq. Qed.
1913	(Sk1Auto94.auto_bulk_spec tm batch_step) 700000%N).
		1670	Definition k485 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;2;2;1;3;1] 751773 32431.
1914	native_check_eq.
		1671	Lemma s485: run 832 k484 = inl k485. Proof. vm_check_eq. Qed.
1915	Qed.
		1672	Definition k486 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;2;3;1;2;1;3;1] 784127 232.
1916	End TM94.
		1673	Lemma s486: run 639 k485 = inl k486. Proof. vm_check_eq. Qed.
1918	Module TM104.
		1674	Definition k487 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2;2;1;3;1] 702317 82154.
1919	Import Sk1Counter Sk1Check Sk1Auto Sk1Auto6.
		1675	Lemma s487: run 498 k486 = inl k487. Proof. vm_check_eq. Qed.
1920	Open Scope sym_scope.
		1676	Definition k488 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;4;3;1] 783006 1548.
1922	Definition tm := Eval compute in (TM_from_str "1LB0RD_1RC0LD_1LE0LA_1RE0LF_1RA1LC_0RB---").
		1677	Lemma s488: run 428 k487 = inl k488. Proof. vm_check_eq. Qed.
1923	Notation "c -->* c'" := (c -[tm]->* c') (at level 40).
		1678	Definition k489 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;9;1;13;1] 786166 66.
1924	Definition h : list (DH0*DH0) := [((C,<[1;0;1]),(C,[1]))].
		1679	Lemma s489: run 6424 k488 = inl k489. Proof. vm_check_eq. Qed.
1926	Lemma wall n : segRLs tm h h (W^^n) (W^^n).
		1680	Definition k490 := mk [3;1;12;1;13;1;8;3;13;1;8;2;9;1;13;1] 787833 2.
1927	Proof. esx. Qed.
		1681	Lemma s490: run 5840 k489 = inl k490. Proof. vm_check_eq. Qed.
1928	Lemma inc0 : segRLs tm h [] (word D0) (word D1).
		1682	Definition k491 := mk [3;1;12;1;9;1;8;2;9;1;8;1;9;1;12;1;9;1;13;1] 789589 2.
1929	Proof. esx. Qed.
		1683	Lemma s491: run 6111 k490 = inl k491. Proof. vm_check_eq. Qed.
1930	Lemma inc1 : segRLs tm h [] (word D1 ++ W) (W ++ word D2).
		1684	Definition k492 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 791120 120.
1931	Proof. esx. Qed.
		1685	Lemma s492: run 6643 k491 = inl k492. Proof. vm_check_eq. Qed.
1932	Lemma inc2 : segRLs tm h [] (word D2) (word D3).
		1686	Definition k493 := mk [3;1;9;2;13;1;9;1;8;1;9;2] 792852 2.
1933	Proof. esx. Qed.
		1687	Lemma s493: run 6833 k492 = inl k493. Proof. vm_check_eq. Qed.
1934	Lemma inc3 : segRLs tm h [] (word D3 ++ W) (W ++ word D4).
		1688	Definition k494 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 794362 253.
1935	Proof. esx. Qed.
		1689	Lemma s494: run 7116 k493 = inl k494. Proof. vm_check_eq. Qed.
1936	Lemma inc4 : segRLs tm h [] (word D4) (word D5).
		1690	Definition k495 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 781736 14482.
1937	Proof. esx. Qed.
		1691	Lemma s495: run 6050 k494 = inl k495. Proof. vm_check_eq. Qed.
1938	Lemma inc5 : segRLs tm h h (word D5) (W ++ word D0).
		1692	Definition k496 := mk [3;1;2;2;9;2;3;1;2;4;3;2;13;1;9;2;12;1;9;6;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 797822 90.
1939	Proof. esx. Qed.
		1693	Lemma s496: run 6521 k495 = inl k496. Proof. vm_check_eq. Qed.
1940	Lemma one p n : segRLs tm h (h^^carry p) (word p ++ W^^(take p+n))
		1694	Definition k497 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;12;2;8;1;9;1;13;1] 799547 14.
1941	(W^^give p ++ word (next p) ++ W^^n).
		1695	Lemma s497: run 6890 k496 = inl k497. Proof. vm_check_eq. Qed.
1942	Proof.
		1696	Definition k498 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 762834 38542.
1943	destruct p; cbn [take give carry next lpow Nat.add]; rewrite ?app_nil_r;
		1697	Lemma s498: run 7632 k497 = inl k498. Proof. vm_check_eq. Qed.
1944	repeat rewrite app_assoc; eapply segRLs_concat;
		1698	Definition k499 := mk [3;1;2;4;3;1;2;1;12;1;9;2;12;1;9;2;13;1;9;1;12;1] 803033 4.
1945	eauto using inc0,inc1,inc2,inc3,inc4,inc5,segRLs_O,wall.
		1699	Lemma s499: run 7020 k498 = inl k499. Proof. vm_check_eq. Qed.
1946	Qed.
		1700	Definition k500 := mk [2;1;12;1;8;1;13;1;8;1;12;3;8;1;13;1] 804767 2.
1947	Lemma emit r : 0inf <{{C}} [1] > r --> 0inf <* <[1;0;1] {{C}}> r.
		1701	Lemma s500: run 7221 k499 = inl k500. Proof. vm_check_eq. Qed.
1948	Proof. es. Qed.
		1702	Definition k501 := mk [4;1;4;1;12;1;13;1;8;1;9;1;8;1;9;1;12;1;13;1] 806498 3.
1949	Lemma batch_step t xs e ys k r : batch t xs=Some (e,ys) ->
		1703	Lemma s501: run 7608 k500 = inl k501. Proof. vm_check_eq. Qed.
1950	start C (W^^N.to_nat k > cell_word xs > r) -->*
		1704	Definition k502 := mk [4;1;4;1;9;1;12;2;9;1;12;1;9;1;13;1] 808321 4.
1951	start C (W^^N.to_nat (k+e) > cell_word ys > r).
		1705	Lemma s502: run 7890 k501 = inl k502. Proof. vm_check_eq. Qed.
1952	Proof. apply (batch_root tm C emit wall one). Qed.
		1706	Definition k503 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 808204 1880.
1953	Definition scans : list scan := [
		1707	Lemma s503: run 7865 k502 = inl k503. Proof. vm_check_eq. Qed.
1954	Scan E L [0;1;1;0;0;1;1;0;1;1] [1;1;1;1;0;1;1;1;1;1] [];
		1708	Definition k504 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;8;1;13;1] 811959 4.
1955	Scan E L [0;1;1;1;0;1;1;0;1;1] [1;1;1;1;0;1;1;1;1;1] [];
		1709	Lemma s504: run 7464 k503 = inl k504. Proof. vm_check_eq. Qed.
1956	Scan D L [1;0;1;1;0;0;1;1;0;1] [1;1;1;1;1;0;1;1;1;1] [0;1;0];
		1710	Definition k505 := mk [3;1;2;2;9;5;3;1;2;4;3;1;2;1;12;1] 807084 6660.
1957	Scan A L [1;1;0;1;1;0;0;1;1;0] [1;1;1;1;0;1;1;1;1;1] [0;1];
		1711	Lemma s505: run 7598 k504 = inl k505. Proof. vm_check_eq. Qed.
1958	Scan D R [1;1;0;1;1;1;1;1;1;1] [0;0;1;1;0;1;1;0;1;1] [0];
		1712	Definition k506 := mk [3;1;8;1;12;1;9;1;12;1;8;1;9;1;13;1] 815618 3.
1959	Scan A R [1;1;1;1;1;1;1;1;1;0] [0;1;1;0;1;1;0;0;1;1] [];
		1713	Lemma s506: run 7654 k505 = inl k506. Proof. vm_check_eq. Qed.
1960	Scan E L [0;1;1;0;1;1] [1;1;1;1;0;1] [];
		1714	Definition k507 := mk [3;1;2;2;9;2;3;1;2;4;3;2;8;1;9;1;13;2] 817330 67.
1961	Scan D L [1;0;1;1;0;1] [1;0;1;1;1;1] [0];
		1715	Lemma s507: run 7812 k506 = inl k507. Proof. vm_check_eq. Qed.
1962	Scan A L [1;1;0;1;1;0] [0;1;1;1;1;1] [];
		1716	Definition k508 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;13;1;9;1;13;1] 819201 3.
1963	Scan D R [1;1;1] [0;1;1] [0]].
		1717	Lemma s508: run 7757 k507 = inl k508. Proof. vm_check_eq. Qed.
1964	Lemma scans_valid : Forall (scan_valid tm) scans.
		1718	Definition k509 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 753571 67219.
1965	Proof.
		1719	Lemma s509: run 5913 k508 = inl k509. Proof. vm_check_eq. Qed.
1966	unfold scans. repeat (apply Forall_cons; [solve [unfold scan_valid;
		1720	Definition k510 := mk [3;1;9;1;8;1;9;2;8;3;9;1;13;2] 822500 2.
1967	cbn [scan_q scan_dir scan_in scan_out scan_context rev app]; intros; shift_rule; es]\|]).
		1721	Lemma s510: run 6624 k509 = inl k510. Proof. vm_check_eq. Qed.
1968	constructor.
		1722	Definition k511 := mk [2;1;8;2;12;1;9;1;13;1;9;1;13;1;12;1] 824248 2.
1969	Qed.
		1723	Lemma s511: run 7211 k510 = inl k511. Proof. vm_check_eq. Qed.
1970	Theorem halt: halts tm c0.
		1724	Definition k512 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 826019 14.
1971	Proof.
		1725	Lemma s512: run 7554 k511 = inl k512. Proof. vm_check_eq. Qed.
1972	apply (Sk1Auto.check_spec 3 (Sk1Auto6.auto_bulk C) tm scans scans_valid
		1726	Definition k513 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;2] 827631 110.
1973	(Sk1Auto6.auto_bulk_spec tm C batch_step) 200000%N).
		1727	Lemma s513: run 7346 k512 = inl k513. Proof. vm_check_eq. Qed.
1974	native_check_eq.
		1728	Definition k514 := mk [3;1;2;2;3;1;2;1;3;1;2;1;9;2;13;3;9;1;13;2] 829475 4.
1975	Qed.
		1729	Lemma s514: run 7113 k513 = inl k514. Proof. vm_check_eq. Qed.
1976	End TM104.
		1730	Definition k515 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;4;3;1] 827787 3434.
1978	Module TM105.
		1731	Lemma s515: run 7218 k514 = inl k515. Proof. vm_check_eq. Qed.
1979	Import Sk1Counter Sk1Check Sk1Auto Sk1Auto6.
		1732	Definition k516 := mk [2;1;9;1;12;1;9;1;12;2;13;1;9;1;8;2;12;1] 832906 3.
1980	Open Scope sym_scope.
		1733	Lemma s516: run 7808 k515 = inl k516. Proof. vm_check_eq. Qed.
1982	Definition tm := Eval compute in (TM_from_str "1RB1RE_1RC1LE_1LD0RA_1LF0LA_1LB0LC_---1RA").
		1734	Definition k517 := mk [2;1;13;1;9;2;13;1;9;2;8;1;2;1;9;1] 834716 3.
1983	Notation "c -->* c'" := (c -[tm]->* c') (at level 40).
		1735	Lemma s517: run 7762 k516 = inl k517. Proof. vm_check_eq. Qed.
1984	Definition h : list (DH0*DH0) := [((E,<[1;0;1]),(E,[1]))].
		1736	Definition k518 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;9;2;8;1;12;1;13;1;12;1] 836483 6.
1986	Lemma wall n : segRLs tm h h (W^^n) (W^^n).
		1737	Lemma s518: run 7522 k517 = inl k518. Proof. vm_check_eq. Qed.
1987	Proof. esx. Qed.
		1738	Definition k519 := mk [9;2;3;1;2;1;3;2;8;1;9;1;13;1;8;1;13;2] 838231 5.
1988	Lemma inc0 : segRLs tm h [] (word D0) (word D1).
		1739	Lemma s519: run 7628 k518 = inl k519. Proof. vm_check_eq. Qed.
1989	Proof. esx. Qed.
		1740	Definition k520 := mk [3;1;2;2;9;7;2;1;13;1;12;1] 822618 17441.
1990	Lemma inc1 : segRLs tm h [] (word D1 ++ W) (W ++ word D2).
		1741	Lemma s520: run 8197 k519 = inl k520. Proof. vm_check_eq. Qed.
1991	Proof. esx. Qed.
		1742	Definition k521 := mk [3;1;2;4;3;2;9;1;13;1;12;1;8;2;12;1;9;1;13;1] 841882 3.
1992	Lemma inc2 : segRLs tm h [] (word D2) (word D3).
		1743	Lemma s521: run 8050 k520 = inl k521. Proof. vm_check_eq. Qed.
1993	Proof. esx. Qed.
		1744	Definition k522 := mk [3;1;2;2;9;6;2;1;9;1;12;1;13;1] 837730 5956.
1994	Lemma inc3 : segRLs tm h [] (word D3 ++ W) (W ++ word D4).
		1745	Lemma s522: run 7942 k521 = inl k522. Proof. vm_check_eq. Qed.
1995	Proof. esx. Qed.
		1746	Definition k523 := mk [3;1;5;1;7;1;6;1;8;1;13;1;9;1;13;2;8;1;9;1;13;1] 845459 2.
1996	Lemma inc4 : segRLs tm h [] (word D4) (word D5).
		1747	Lemma s523: run 7800 k522 = inl k523. Proof. vm_check_eq. Qed.
1997	Proof. esx. Qed.
		1748	Definition k524 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;4;1;4;1;9;1;13;1;9;1;12;2] 847158 30.
1998	Lemma inc5 : segRLs tm h h (word D5) (W ++ word D0).
		1749	Lemma s524: run 7777 k523 = inl k524. Proof. vm_check_eq. Qed.
1999	Proof. esx. Qed.
		1750	Definition k525 := mk [2;2;4;1;8;1;12;1;8;2;13;2;9;1;12;2] 848989 2.
2000	Lemma one p n : segRLs tm h (h^^carry p) (word p ++ W^^(take p+n))
		1751	Lemma s525: run 7929 k524 = inl k525. Proof. vm_check_eq. Qed.
2001	(W^^give p ++ word (next p) ++ W^^n).
		1752	Definition k526 := mk [2;2;6;1;9;1;8;1;12;1;8;1;13;1;8;1;13;1;12;1] 850767 2.
2002	Proof.
		1753	Lemma s526: run 7914 k525 = inl k526. Proof. vm_check_eq. Qed.
2003	destruct p; cbn [take give carry next lpow Nat.add]; rewrite ?app_nil_r;
		1754	Definition k527 := mk [3;1;13;1;9;2;13;1;12;1;9;1;13;1] 852521 3.
2004	repeat rewrite app_assoc; eapply segRLs_concat;
		1755	Lemma s527: run 7329 k526 = inl k527. Proof. vm_check_eq. Qed.
2005	eauto using inc0,inc1,inc2,inc3,inc4,inc5,segRLs_O,wall.
		1756	Definition k528 := mk [3;1;13;1;9;1;13;1;12;4;9;1] 854306 4.
2006	Qed.
		1757	Lemma s528: run 7051 k527 = inl k528. Proof. vm_check_eq. Qed.
2007	Lemma emit r : 0inf <{{E}} [1] > r --> 0inf <* <[1;0;1] {{E}}> r.
		1758	Definition k529 := mk [3;1;9;2;8;1;12;1;13;1;9;1;12;2;9;1] 856089 2.
2008	Proof. es. Qed.
		1759	Lemma s529: run 7390 k528 = inl k529. Proof. vm_check_eq. Qed.
2009	Lemma batch_step t xs e ys k r : batch t xs=Some (e,ys) ->
		1760	Definition k530 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;1;3;1;2;1;9;1;8;1;13;2] 857639 259.
2010	start E (W^^N.to_nat k > cell_word xs > r) -->*
		1761	Lemma s530: run 7926 k529 = inl k530. Proof. vm_check_eq. Qed.
2011	start E (W^^N.to_nat (k+e) > cell_word ys > r).
		1762	Definition k531 := mk [3;1;2;2;9;3;3;1;2;4;3;1;2;1;9;1;8;1;12;1;13;1] 859698 5.
2012	Proof. apply (batch_root tm E emit wall one). Qed.
		1763	Lemma s531: run 7743 k530 = inl k531. Proof. vm_check_eq. Qed.
2014	Definition scans : list scan := [
		1764	Definition k532 := mk [3;1;2;2;9;6;3;1;2;4;3;1;5;1;6;1] 840579 20861.
2015	Scan A L [1;0;1;1;0;0;1;1;0;1] [1;1;1;1;1;0;1;1;1;1] [0;1;0];
		1765	Lemma s532: run 7208 k531 = inl k532. Proof. vm_check_eq. Qed.
2016	Scan E R [1;0;1;1;1;1;1;1;1;1] [0;1;1;0;1;1;0;1;1;0] [1];
		1766	Definition k533 := mk [2;2;4;1;8;1;9;2;13;1;9;1;12;3] 863278 2.
2017	Scan C L [1;1;0;1;1;0;0;1;1;0] [1;1;1;1;0;1;1;1;1;1] [0;1];
		1767	Lemma s533: run 7749 k532 = inl k533. Proof. vm_check_eq. Qed.
2018	Scan C L [1;1;1;0;1;1;0;1;1;0] [0;1;1;1;0;1;1;1;1;1] [];
		1768	Definition k534 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 516629 348484.
2019	Scan E R [1;1;1;1;0;1;1;1;1;1] [1;0;1;1;0;0;1;1;0;1] [1;0;1];
		1769	Lemma s534: run 7866 k533 = inl k534. Proof. vm_check_eq. Qed.
2020	Scan E L [1;1;0;1;1;0;0;1;1;0] [1;1;1;1;1;0;1;1;1;1] [1;1;1;0];
		1770	Definition k535 := mk [2;1;3;1;2;1;3;1;12;1;9;1;13;1;9;1;13;1;12;2;13;1;12;1] 866944 2.
2021	Scan E L [1;1;0;1;1;0;1;1;0;0] [1;1;1;1;0;1;1;1;1;1] [1;1;1;0;1];
		1771	Lemma s535: run 8294 k534 = inl k535. Proof. vm_check_eq. Qed.
2022	Scan B L [0;1;1;0;1;1] [1;1;1;1;0;1] [];
		1772	Definition k536 := mk [2;1;13;1;12;1;8;1;9;2;12;1;9;1;8;1;13;1] 868840 3.
2023	Scan A L [1;0;1;1;0;1] [1;0;1;1;1;1] [0];
		1773	Lemma s536: run 8004 k535 = inl k536. Proof. vm_check_eq. Qed.
2024	Scan C L [1;1;0;1;1;0] [0;1;1;1;1;1] [];
		1774	Definition k537 := mk [3;1;2;2;3;1;2;4;3;1;8;1;4;1;4;1;12;1;8;1;13;1] 870670 5.
2025	Scan E L [1;1;0;1;1;0] [1;1;1;0;1;1] [];
		1775	Lemma s537: run 7939 k536 = inl k537. Proof. vm_check_eq. Qed.
2026	Scan B R [0;1;1;1] [1;0;0;1] [];
		1776	Definition k538 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;4;1;3;1;2;1;3;1] 872460 4.
2027	Scan E R [1;0;1;1] [0;1;1;0] [1];
		1777	Lemma s538: run 8417 k537 = inl k538. Proof. vm_check_eq. Qed.
2028	Scan A R [1;1;0;1] [0;1;1;0] [];
		1778	Definition k539 := mk [3;1;13;1;12;1;9;1;13;2] 874338 5.
2029	Scan A R [1;1;1] [1;0;1] [1;0];
		1779	Lemma s539: run 8189 k538 = inl k539. Proof. vm_check_eq. Qed.
2030	Scan E R [1;1;1] [1;0;1] [1;0;1]].
		1780	Definition k540 := mk [3;1;2;4;3;2;9;2;8;2;13;1] 876253 3.
2031	Lemma scans_valid : Forall (scan_valid tm) scans.
		1781	Lemma s540: run 8116 k539 = inl k540. Proof. vm_check_eq. Qed.
2032	Proof.
		1782	Definition k541 := mk [3;1;8;1;12;2;13;1;8;1;9;1;12;2;9;1] 878124 3.
2033	unfold scans. repeat (apply Forall_cons; [solve [unfold scan_valid;
		1783	Lemma s541: run 7877 k540 = inl k541. Proof. vm_check_eq. Qed.
2034	cbn [scan_q scan_dir scan_in scan_out scan_context rev app]; intros; shift_rule; es]\|]).
		1784	Definition k542 := mk [3;1;9;1;8;1;9;2;13;1;8;1;12;2;8;1;13;1] 879845 2.
2035	constructor.
		1785	Lemma s542: run 7533 k541 = inl k542. Proof. vm_check_eq. Qed.
2036	Qed.
		1786	Definition k543 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 794428 87174.
2037	Theorem halt: halts tm c0.
		1787	Lemma s543: run 8073 k542 = inl k543. Proof. vm_check_eq. Qed.
2038	Proof.
		1788	Definition k544 := mk [2;2;4;1;8;1;9;1;12;1;13;1;8;2;9;1;13;2] 883485 2.
2039	apply (Sk1Auto.check_spec 3 (Sk1Auto6.auto_bulk E) tm scans scans_valid
		1789	Lemma s544: run 8319 k543 = inl k544. Proof. vm_check_eq. Qed.
2040	(Sk1Auto6.auto_bulk_spec tm E batch_step) 200000%N).
		1790	Definition k545 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1;8;2;12;1;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 885001 10.
2041	native_check_eq.
		1791	Lemma s545: run 6868 k544 = inl k545. Proof. vm_check_eq. Qed.
2042	Qed.
		1792	Definition k546 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1] 885515 45.
2043	End TM105.
		1793	Lemma s546: run 2361 k545 = inl k546. Proof. vm_check_eq. Qed.
		1794	Definition k547 := mk [7;1;6;1;12;1;8;1;12;1;8;3;13;1] 887275 2.
		1795	Lemma s547: run 7523 k546 = inl k547. Proof. vm_check_eq. Qed.
		1796	Definition k548 := mk [5;1;6;1;13;1;8;1;9;2;12;1;9;1;13;1] 889086 4.
		1797	Lemma s548: run 7794 k547 = inl k548. Proof. vm_check_eq. Qed.
		1798	Definition k549 := mk [3;1;2;2;9;3;3;1;2;4;3;1;9;1;5;1;6;1;13;1;12;1] 890447 449.
		1799	Lemma s549: run 8094 k548 = inl k549. Proof. vm_check_eq. Qed.
		1800	Definition k550 := mk [3;1;2;2;3;1;2;1;3;2;9;1;8;1;12;1;9;1;8;2;13;2] 892879 3.
		1801	Lemma s550: run 8065 k549 = inl k550. Proof. vm_check_eq. Qed.
		1802	Definition k551 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;4;1;3;1;2;1;3;1] 894704 4.
		1803	Lemma s551: run 7508 k550 = inl k551. Proof. vm_check_eq. Qed.
		1804	Definition k552 := mk [3;1;2;3;13;1;9;1;8;1;9;1;13;1;8;2;13;1] 896579 6.
		1805	Lemma s552: run 7524 k551 = inl k552. Proof. vm_check_eq. Qed.
		1806	Definition k553 := mk [2;2;6;1;8;1;12;1;9;1;8;1;12;1;8;2;13;2] 898372 2.
		1807	Lemma s553: run 8068 k552 = inl k553. Proof. vm_check_eq. Qed.
		1808	Definition k554 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 900138 18.
		1809	Lemma s554: run 8133 k553 = inl k554. Proof. vm_check_eq. Qed.
		1810	Definition k555 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 880319 21523.
		1811	Lemma s555: run 7546 k554 = inl k555. Proof. vm_check_eq. Qed.
		1812	Definition k556 := mk [3;1;2;2;9;4;3;1;2;1;3;2;8;1;9;1;12;2] 903635 11.
		1813	Lemma s556: run 8085 k555 = inl k556. Proof. vm_check_eq. Qed.
		1814	Definition k557 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;2] 905411 9.
		1815	Lemma s557: run 8075 k556 = inl k557. Proof. vm_check_eq. Qed.
		1816	Definition k558 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 907122 92.
		1817	Lemma s558: run 8477 k557 = inl k558. Proof. vm_check_eq. Qed.
		1818	Definition k559 := mk [8;1;4;1;4;1;13;2;12;2;8;1;12;1] 908968 3.
		1819	Lemma s559: run 7752 k558 = inl k559. Proof. vm_check_eq. Qed.
		1820	Definition k560 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1] 910599 3.
		1821	Lemma s560: run 7504 k559 = inl k560. Proof. vm_check_eq. Qed.
		1822	Definition k561 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;3] 912425 4.
		1823	Lemma s561: run 8073 k560 = inl k561. Proof. vm_check_eq. Qed.
		1824	Definition k562 := mk [2;1;5;1;7;1;6;1;8;1;13;1;9;1;8;1;9;1;12;1;9;1;13;1] 914127 2.
		1825	Lemma s562: run 7798 k561 = inl k562. Proof. vm_check_eq. Qed.
		1826	Definition k563 := mk [2;2;6;1;12;1;13;1;8;1;13;1;12;2;9;1;8;1;13;1] 915936 2.
		1827	Lemma s563: run 8355 k562 = inl k563. Proof. vm_check_eq. Qed.
		1828	Definition k564 := mk [2;1;9;1;13;1;8;1;9;1;13;3;12;1] 917822 3.
		1829	Lemma s564: run 8311 k563 = inl k564. Proof. vm_check_eq. Qed.
		1830	Definition k565 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 584081 335371.
		1831	Lemma s565: run 6768 k564 = inl k565. Proof. vm_check_eq. Qed.
		1832	Definition k566 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1] 920213 213.
		1833	Lemma s566: run 3582 k565 = inl k566. Proof. vm_check_eq. Qed.
		1834	Definition k567 := mk [7;1;6;1;8;1;9;1;8;1;9;1;13;1;9;2;12;2] 921374 2.
		1835	Lemma s567: run 4170 k566 = inl k567. Proof. vm_check_eq. Qed.
		1836	Definition k568 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;9;2;13;1;12;1;13;1] 923206 30.
		1837	Lemma s568: run 7866 k567 = inl k568. Proof. vm_check_eq. Qed.
		1838	Definition k569 := mk [4;1;4;1;9;2;13;2] 925124 5.
		1839	Lemma s569: run 8043 k568 = inl k569. Proof. vm_check_eq. Qed.
		1840	Definition k570 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 598856 327940.
		1841	Lemma s570: run 6964 k569 = inl k570. Proof. vm_check_eq. Qed.
		1842	Definition k571 := mk [2;1;5;1;7;1;6;1;12;1;13;3;12;2;13;2] 928564 2.
		1843	Lemma s571: run 7538 k570 = inl k571. Proof. vm_check_eq. Qed.
		1844	Definition k572 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 923170 7174.
		1845	Lemma s572: run 8073 k571 = inl k572. Proof. vm_check_eq. Qed.
		1846	Definition k573 := mk [3;1;2;2;9;6;3;1;2;1;3;1] 931210 982.
		1847	Lemma s573: run 8374 k572 = inl k573. Proof. vm_check_eq. Qed.
		1848	Definition k574 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;8;1;13;1] 933959 4.
		1849	Lemma s574: run 8234 k573 = inl k574. Proof. vm_check_eq. Qed.
		1850	Definition k575 := mk [3;1;2;2;3;1;2;1;3;2;8;2;12;1;13;1;8;1;12;1;13;1] 935691 3.
		1851	Lemma s575: run 7545 k574 = inl k575. Proof. vm_check_eq. Qed.
		1852	Definition k576 := mk [3;1;12;1;13;1;12;1;8;1;12;1;9;1;13;2;9;1;13;1] 937535 2.
		1853	Lemma s576: run 8042 k575 = inl k576. Proof. vm_check_eq. Qed.
		1854	Definition k577 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;4;3;1] 937742 1541.
		1855	Lemma s577: run 8309 k576 = inl k577. Proof. vm_check_eq. Qed.
		1856	Definition k578 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;2;1;9;1;12;2] 940515 612.
		1857	Lemma s578: run 8197 k577 = inl k578. Proof. vm_check_eq. Qed.
		1858	Definition k579 := mk [11;1;7;1;6;1;9;1;8;1;12;1;9;1;12;2] 942772 2.
		1859	Lemma s579: run 7354 k578 = inl k579. Proof. vm_check_eq. Qed.
		1860	Definition k580 := mk [3;1;2;3;9;1;12;2;9;1;12;2;9;1;13;1] 944611 7.
		1861	Lemma s580: run 7871 k579 = inl k580. Proof. vm_check_eq. Qed.
		1862	Definition k581 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 946314 100.
		1863	Lemma s581: run 8206 k580 = inl k581. Proof. vm_check_eq. Qed.
		1864	Definition k582 := mk [2;1;13;2;8;1;12;1;9;1;12;2] 948228 4.
		1865	Lemma s582: run 8233 k581 = inl k582. Proof. vm_check_eq. Qed.
		1866	Definition k583 := mk [2;2;6;1;9;1;8;1;12;1;8;1;13;1;8;1;13;1;8;1;13;1] 949902 2.
		1867	Lemma s583: run 7707 k582 = inl k583. Proof. vm_check_eq. Qed.
		1868	Definition k584 := mk [4;1;4;1;9;2;13;1;9;1;8;1;13;1] 951669 3.
		1869	Lemma s584: run 6911 k583 = inl k584. Proof. vm_check_eq. Qed.
		1870	Definition k585 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;13;1] 952917 7.
		1871	Lemma s585: run 4944 k584 = inl k585. Proof. vm_check_eq. Qed.
		1872	Definition k586 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;1;3;1] 954510 5.
		1873	Lemma s586: run 6991 k585 = inl k586. Proof. vm_check_eq. Qed.
		1874	Definition k587 := mk [2;1;13;1;8;1;9;2;13;2;12;1;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 954867 2.
		1875	Lemma s587: run 1778 k586 = inl k587. Proof. vm_check_eq. Qed.
		1876	Definition k588 := mk [3;1;12;1;13;1;9;2;8;1;12;1;8;1;9;1;12;1;13;1] 956505 2.
		1877	Lemma s588: run 7372 k587 = inl k588. Proof. vm_check_eq. Qed.
		1878	Definition k589 := mk [3;1;2;4;3;2;8;1;9;2;8;1;13;1;8;1;12;1;13;1] 958410 4.
		1879	Lemma s589: run 8000 k588 = inl k589. Proof. vm_check_eq. Qed.
		1880	Definition k590 := mk [2;1;3;1;2;1;3;1;9;1;12;1;13;1;8;1;13;3;12;1;13;1] 960266 2.
		1881	Lemma s590: run 6943 k589 = inl k590. Proof. vm_check_eq. Qed.
		1882	Definition k591 := mk [2;2;4;1;13;1;9;1;13;1;8;1;9;1;13;1;9;1;8;1;13;1] 962165 2.
		1883	Lemma s591: run 7338 k590 = inl k591. Proof. vm_check_eq. Qed.
		1884	Definition k592 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 535439 428427.
		1885	Lemma s592: run 7555 k591 = inl k592. Proof. vm_check_eq. Qed.
		1886	Definition k593 := mk [3;1;9;3;8;1;9;1;12;1;13;1;8;1;13;2] 965563 2.
		1887	Lemma s593: run 8010 k592 = inl k593. Proof. vm_check_eq. Qed.
		1888	Definition k594 := mk [3;1;2;2;9;2;2;1;13;2;8;1;13;1] 967075 65.
		1889	Lemma s594: run 7161 k593 = inl k594. Proof. vm_check_eq. Qed.
		1890	Definition k595 := mk [2;2;4;1;12;3;8;1;9;1;12;1;13;1;12;1;9;1;13;1] 968867 2.
		1891	Lemma s595: run 7414 k594 = inl k595. Proof. vm_check_eq. Qed.
		1892	Definition k596 := mk [3;1;2;2;9;4;3;1;2;4;3;2;9;1;8;1;13;1] 968985 1694.
		1893	Lemma s596: run 8247 k595 = inl k596. Proof. vm_check_eq. Qed.
		1894	Definition k597 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 862835 109577.
		1895	Lemma s597: run 8495 k596 = inl k597. Proof. vm_check_eq. Qed.
		1896	Definition k598 := mk [3;1;9;1;8;1;12;1;13;1;8;1;9;3;13;2] 974107 2.
		1897	Lemma s598: run 8475 k597 = inl k598. Proof. vm_check_eq. Qed.
		1898	Definition k599 := mk [3;1;2;2;9;8;2;1;13;1] 906267 69640.
		1899	Lemma s599: run 8256 k598 = inl k599. Proof. vm_check_eq. Qed.
		1900	Definition k600 := mk [3;1;2;3;3;1;6;1;9;1;12;1;9;1;8;1;13;1;8;2;13;1] 977710 5.
		1901	Lemma s600: run 8314 k599 = inl k600. Proof. vm_check_eq. Qed.
		1902	Definition k601 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 951688 27285.
		1903	Lemma s601: run 6215 k600 = inl k601. Proof. vm_check_eq. Qed.
		1904	Definition k602 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;1;3;1] 980629 14.
		1905	Lemma s602: run 8462 k601 = inl k602. Proof. vm_check_eq. Qed.
		1906	Definition k603 := mk [3;1;2;2;9;3;2;1;13;1] 982363 94.
		1907	Lemma s603: run 8633 k602 = inl k603. Proof. vm_check_eq. Qed.
		1908	Definition k604 := mk [2;1;12;1;13;1;12;1;9;1;12;1;9;1;13;1;12;1;13;1] 984037 3.
		1909	Lemma s604: run 7433 k603 = inl k604. Proof. vm_check_eq. Qed.
		1910	Definition k605 := mk [3;1;8;1;9;1;13;1;9;2;8;1;12;1;13;1] 985604 3.
		1911	Lemma s605: run 6995 k604 = inl k605. Proof. vm_check_eq. Qed.
		1912	Definition k606 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;1;8;1;4;1;4;1;13;1] 987312 13.
		1913	Lemma s606: run 7948 k605 = inl k606. Proof. vm_check_eq. Qed.
		1914	Definition k607 := mk [3;1;13;1;9;1;13;2;9;1;8;1;13;1] 989092 5.
		1915	Lemma s607: run 8318 k606 = inl k607. Proof. vm_check_eq. Qed.
		1916	Definition k608 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;13;1;9;1;8;1;13;1] 990792 5.
		1917	Lemma s608: run 8286 k607 = inl k608. Proof. vm_check_eq. Qed.
		1918	Definition k609 := mk [3;1;2;2;9;6;3;1;2;4;3;1;2;1;13;1] 978139 14386.
		1919	Lemma s609: run 7800 k608 = inl k609. Proof. vm_check_eq. Qed.
		1920	Definition k610 := mk [3;1;2;2;3;1;2;3;9;2;12;2;8;1;9;1;8;1;13;1] 994305 18.
		1921	Lemma s610: run 8042 k609 = inl k610. Proof. vm_check_eq. Qed.
		1922	Definition k611 := mk [3;1;2;2;3;1;2;3;9;1;8;1;13;1;12;3;9;1] 996089 13.
		1923	Lemma s611: run 8300 k610 = inl k611. Proof. vm_check_eq. Qed.
		1924	Definition k612 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 996367 1596.
		1925	Lemma s612: run 8499 k611 = inl k612. Proof. vm_check_eq. Qed.
		1926	Definition k613 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 785667 214022.
		1927	Lemma s613: run 8331 k612 = inl k613. Proof. vm_check_eq. Qed.
		1928	Definition k614 := mk [3;1;9;3;8;1;12;1;9;1;8;1;13;2] 1001474 3.
		1929	Lemma s614: run 8382 k613 = inl k614. Proof. vm_check_eq. Qed.
		1930	Definition k615 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1] 1002001 1289.
		1931	Lemma s615: run 8672 k614 = inl k615. Proof. vm_check_eq. Qed.
		1932	Definition k616 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1;9;1;8;1;13;1] 1005074 12.
		1933	Lemma s616: run 8864 k615 = inl k616. Proof. vm_check_eq. Qed.
		1934	Definition k617 := mk [2;1;8;1;12;1;9;1;8;1;12;2;8;1;12;1;13;1] 1006878 2.
		1935	Lemma s617: run 8628 k616 = inl k617. Proof. vm_check_eq. Qed.
		1936	Definition k618 := mk [3;1;9;1;13;1;8;2;12;1;13;1] 1008645 3.
		1937	Lemma s618: run 8513 k617 = inl k618. Proof. vm_check_eq. Qed.
		1938	Definition k619 := mk [3;1;9;2;12;1;13;2;8;1;12;3] 1010446 2.
		1939	Lemma s619: run 8455 k618 = inl k619. Proof. vm_check_eq. Qed.
		1940	Definition k620 := mk [2;1;9;2;3;1;2;1;3;1;12;2;13;1;9;1;13;1;8;1;13;1] 1012207 2.
		1941	Lemma s620: run 8659 k619 = inl k620. Proof. vm_check_eq. Qed.
		1942	Definition k621 := mk [3;1;9;2;12;1;13;1;8;1;13;1;12;1;13;1;8;1;13;1] 1014021 2.
		1943	Lemma s621: run 8663 k620 = inl k621. Proof. vm_check_eq. Qed.
		1944	Definition k622 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1015821 5.
		1945	Lemma s622: run 8746 k621 = inl k622. Proof. vm_check_eq. Qed.
		1946	Definition k623 := mk [3;1;2;2;9;5;3;1;2;1;3;1;2;1;13;1] 1017333 142.
		1947	Lemma s623: run 7398 k622 = inl k623. Proof. vm_check_eq. Qed.
		1948	Definition k624 := mk [3;1;2;2;9;2;2;1;9;1;12;1;9;1;8;1;13;1] 1019142 51.
		1949	Lemma s624: run 7971 k623 = inl k624. Proof. vm_check_eq. Qed.
		1950	Definition k625 := mk [3;1;2;2;9;6;2;1;13;1] 1005842 15013.
		1951	Lemma s625: run 8042 k624 = inl k625. Proof. vm_check_eq. Qed.
		1952	Definition k626 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;3;13;1] 1022619 5.
		1953	Lemma s626: run 8516 k625 = inl k626. Proof. vm_check_eq. Qed.
		1954	Definition k627 := mk [2;2;4;1;8;1;9;1;13;1;9;2;8;1;12;1;8;1;13;1] 1024457 2.
		1955	Lemma s627: run 8306 k626 = inl k627. Proof. vm_check_eq. Qed.
		1956	Definition k628 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1;8;1;13;1] 1026163 103.
		1957	Lemma s628: run 7977 k627 = inl k628. Proof. vm_check_eq. Qed.
		1958	Definition k629 := mk [3;1;2;2;3;1;2;1;3;1;5;1;6;1;13;1;9;1;8;1;13;2] 1028087 4.
		1959	Lemma s629: run 8310 k628 = inl k629. Proof. vm_check_eq. Qed.
		1960	Definition k630 := mk [2;2;4;1;12;2;13;1;9;1;12;1;13;1;8;1;12;1;13;1] 1029883 2.
		1961	Lemma s630: run 8410 k629 = inl k630. Proof. vm_check_eq. Qed.
		1962	Definition k631 := mk [2;1;3;1;2;3;14;1;6;1;9;1;8;1;13;1;8;1;13;1;8;1;13;1] 1031616 2.
		1963	Lemma s631: run 8273 k630 = inl k631. Proof. vm_check_eq. Qed.
		1964	Definition k632 := mk [3;1;2;2;9;5;3;1;2;4;3;1;4;1;4;1;13;1] 1031298 2097.
		1965	Lemma s632: run 8011 k631 = inl k632. Proof. vm_check_eq. Qed.
		1966	Definition k633 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1002672 31236.
		1967	Lemma s633: run 2658 k632 = inl k633. Proof. vm_check_eq. Qed.
		1968	Definition k634 := mk [3;1;13;1;9;1;13;1;9;1;8;2;13;1] 1035637 4.
		1969	Lemma s634: run 8042 k633 = inl k634. Proof. vm_check_eq. Qed.
		1970	Definition k635 := mk [7;1;6;1;5;1;7;1;6;1;8;1;13;1;8;1;13;1;12;3] 1037292 2.
		1971	Lemma s635: run 7692 k634 = inl k635. Proof. vm_check_eq. Qed.
		1972	Definition k636 := mk [2;1;13;1;12;1;13;2;9;1;8;1;13;1;8;1;13;1] 1039142 3.
		1973	Lemma s636: run 8539 k635 = inl k636. Proof. vm_check_eq. Qed.
		1974	Definition k637 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1009035 31773.
		1975	Lemma s637: run 7522 k636 = inl k637. Proof. vm_check_eq. Qed.
		1976	Definition k638 := mk [3;1;9;1;12;1;9;1;12;2;13;1;8;2;13;1] 1042359 2.
		1977	Lemma s638: run 7283 k637 = inl k638. Proof. vm_check_eq. Qed.
		1978	Definition k639 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;12;1;13;1] 1044165 86.
		1979	Lemma s639: run 7954 k638 = inl k639. Proof. vm_check_eq. Qed.
		1980	Definition k640 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;8;1;4;1;4;1;12;1;13;1] 1046134 3.
		1981	Lemma s640: run 8513 k639 = inl k640. Proof. vm_check_eq. Qed.
		1982	Definition k641 := mk [2;1;5;1;7;1;6;1;12;1;8;1;13;1;12;4;9;3;12;1] 1048042 2.
		1983	Lemma s641: run 8338 k640 = inl k641. Proof. vm_check_eq. Qed.
		1984	Definition k642 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1049673 10.
		1985	Lemma s642: run 6655 k641 = inl k642. Proof. vm_check_eq. Qed.
		1986	Definition k643 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 1051223 5.
		1987	Lemma s643: run 6115 k642 = inl k643. Proof. vm_check_eq. Qed.
		1988	Definition k644 := mk [6;1;4;1;12;1;9;3;13;1;8;2;13;1] 1052529 2.
		1989	Lemma s644: run 5314 k643 = inl k644. Proof. vm_check_eq. Qed.
		1990	Definition k645 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2] 1053328 517.
		1991	Lemma s645: run 5771 k644 = inl k645. Proof. vm_check_eq. Qed.
		1992	Definition k646 := mk [3;1;2;2;9;9;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;2;3;1] 527885 526343.
		1993	Lemma s646: run 1640 k645 = inl k646. Proof. vm_check_eq. Qed.
		1994	Definition k647 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;3;13;1] 1055764 31.
		1995	Lemma s647: run 6627 k646 = inl k647. Proof. vm_check_eq. Qed.
		1996	Definition k648 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1057388 41.
		1997	Lemma s648: run 6548 k647 = inl k648. Proof. vm_check_eq. Qed.
		1998	Definition k649 := mk [3;1;2;2;9;7;2;1;13;1] 1018094 40964.
		1999	Lemma s649: run 6302 k648 = inl k649. Proof. vm_check_eq. Qed.
		2000	Definition k650 := mk [3;1;2;2;9;9;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;1;3;1] 780130 280282.
		2001	Lemma s650: run 5372 k649 = inl k650. Proof. vm_check_eq. Qed.
		2002	Definition k651 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;3;3;1;2;1;3;2;2;1;3;1] 929123 131501.
		2003	Lemma s651: run 962 k650 = inl k651. Proof. vm_check_eq. Qed.
		2004	Definition k652 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1] 1060791 51.
		2005	Lemma s652: run 808 k651 = inl k652. Proof. vm_check_eq. Qed.
		2006	Definition k653 := mk [3;1;2;2;9;2;2;1;9;2;8;1;13;1;8;2;13;1] 1062341 60.
		2007	Lemma s653: run 6581 k652 = inl k653. Proof. vm_check_eq. Qed.
		2008	Definition k654 := mk [3;1;2;2;9;2;2;1;13;1;12;1;9;2;12;1;13;1] 1063835 38.
		2009	Lemma s654: run 6496 k653 = inl k654. Proof. vm_check_eq. Qed.
		2010	Definition k655 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 1065169 104.
		2011	Lemma s655: run 6230 k654 = inl k655. Proof. vm_check_eq. Qed.
		2012	Definition k656 := mk [7;1;6;1;8;3;9;1;8;1;9;2;12;1] 1066469 2.
		2013	Lemma s656: run 4890 k655 = inl k656. Proof. vm_check_eq. Qed.
		2014	Definition k657 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;8;1;13;1] 1067661 594.
		2015	Lemma s657: run 7533 k656 = inl k657. Proof. vm_check_eq. Qed.
		2016	Definition k658 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 1068511 259.
		2017	Lemma s658: run 2528 k657 = inl k658. Proof. vm_check_eq. Qed.
		2018	Definition k659 := mk [3;1;13;2;12;2;8;2;12;1;8;1;13;1] 1070003 3.
		2019	Lemma s659: run 5466 k658 = inl k659. Proof. vm_check_eq. Qed.
		2020	Definition k660 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1071393 3.
		2021	Lemma s660: run 6364 k659 = inl k660. Proof. vm_check_eq. Qed.
		2022	Definition k661 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 1072446 644.
		2023	Lemma s661: run 7785 k660 = inl k661. Proof. vm_check_eq. Qed.
		2024	Definition k662 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;13;1;12;1;8;1;13;1] 1074837 15.
		2025	Lemma s662: run 7652 k661 = inl k662. Proof. vm_check_eq. Qed.
		2026	Definition k663 := mk [3;1;2;2;9;8;2;1;13;1] 836400 240195.
		2027	Lemma s663: run 7815 k662 = inl k663. Proof. vm_check_eq. Qed.
		2028	Definition k664 := mk [2;1;9;2;2;1;4;1;13;1;9;1;12;1;9;1;8;1;12;1;13;1] 1078244 2.
		2029	Lemma s664: run 7889 k663 = inl k664. Proof. vm_check_eq. Qed.
		2030	Definition k665 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1079911 86.
		2031	Lemma s665: run 8000 k664 = inl k665. Proof. vm_check_eq. Qed.
		2032	Definition k666 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;1;3;1] 1081591 101.
		2033	Lemma s666: run 7429 k665 = inl k666. Proof. vm_check_eq. Qed.
		2034	Definition k667 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 1082826 276.
		2035	Lemma s667: run 5330 k666 = inl k667. Proof. vm_check_eq. Qed.
		2036	Definition k668 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;1] 1084072 214.
		2037	Lemma s668: run 4237 k667 = inl k668. Proof. vm_check_eq. Qed.
		2038	Definition k669 := mk [3;1;12;2;8;2;13;1;9;1;13;1;9;2;13;1;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;1;3;1] 1084609 2.
		2039	Lemma s669: run 1155 k668 = inl k669. Proof. vm_check_eq. Qed.
		2040	Definition k670 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 1002781 82269.
		2041	Lemma s670: run 1879 k669 = inl k670. Proof. vm_check_eq. Qed.
		2042	Definition k671 := mk [3;1;2;2;3;1;2;1;3;1;2;1;13;1;12;1;13;1;9;1;13;1;9;2;13;1] 1086652 4.
		2043	Lemma s671: run 6602 k670 = inl k671. Proof. vm_check_eq. Qed.
		2044	Definition k672 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;2;13;1;12;3;8;1;13;1] 1087809 2.
		2045	Lemma s672: run 4803 k671 = inl k672. Proof. vm_check_eq. Qed.
		2046	Definition k673 := mk [3;1;9;1;8;1;9;2;13;2;9;2;12;1;13;1] 1089647 3.
		2047	Lemma s673: run 7417 k672 = inl k673. Proof. vm_check_eq. Qed.
		2048	Definition k674 := mk [2;1;13;1;9;1;8;1;13;3;12;2;13;1] 1090854 2.
		2049	Lemma s674: run 4296 k673 = inl k674. Proof. vm_check_eq. Qed.
		2050	Definition k675 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 1092605 3.
		2051	Lemma s675: run 6721 k674 = inl k675. Proof. vm_check_eq. Qed.
		2052	Definition k676 := mk [2;2;12;2;4;1;12;2;13;1;9;1;8;1;13;2] 1094405 2.
		2053	Lemma s676: run 7316 k675 = inl k676. Proof. vm_check_eq. Qed.
		2054	Definition k677 := mk [2;2;12;1;4;1;12;1;8;1;9;1;13;2;9;2;12;1] 1096134 2.
		2055	Lemma s677: run 7738 k676 = inl k677. Proof. vm_check_eq. Qed.
		2056	Definition k678 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 1097813 40.
		2057	Lemma s678: run 7275 k677 = inl k678. Proof. vm_check_eq. Qed.
		2058	Definition k679 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 689069 410536.
		2059	Lemma s679: run 7344 k678 = inl k679. Proof. vm_check_eq. Qed.
		2060	Definition k680 := mk [2;2;6;1;8;1;9;1;13;1;8;1;13;1;8;1;9;1;13;2] 1101267 2.
		2061	Lemma s680: run 7728 k679 = inl k680. Proof. vm_check_eq. Qed.
		2062	Definition k681 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2] 1101635 1317.
		2063	Lemma s681: run 7927 k680 = inl k681. Proof. vm_check_eq. Qed.
		2064	Definition k682 := mk [2;1;9;4;2;1;4;1;8;1;12;2;8;1;13;1] 1104641 2.
		2065	Lemma s682: run 8170 k681 = inl k682. Proof. vm_check_eq. Qed.
		2066	Definition k683 := mk [2;1;12;1;9;2;8;1;13;1;12;1] 1106298 4.
		2067	Lemma s683: run 7963 k682 = inl k683. Proof. vm_check_eq. Qed.
		2068	Definition k684 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1] 1108023 25.
		2069	Lemma s684: run 7825 k683 = inl k684. Proof. vm_check_eq. Qed.
		2070	Definition k685 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1] 1109716 19.
		2071	Lemma s685: run 7664 k684 = inl k685. Proof. vm_check_eq. Qed.
		2072	Definition k686 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1;8;1;13;1] 1111330 29.
		2073	Lemma s686: run 7810 k685 = inl k686. Proof. vm_check_eq. Qed.
		2074	Definition k687 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1112453 125.
		2075	Lemma s687: run 5987 k686 = inl k687. Proof. vm_check_eq. Qed.
		2076	Definition k688 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 1112059 2051.
		2077	Lemma s688: run 7244 k687 = inl k688. Proof. vm_check_eq. Qed.
		2078	Definition k689 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1106317 9443.
		2079	Lemma s689: run 6521 k688 = inl k689. Proof. vm_check_eq. Qed.
		2080	Definition k690 := mk [3;1;2;2;9;3;2;1;9;1;12;1;13;1] 1117228 253.
		2081	Lemma s690: run 7275 k689 = inl k690. Proof. vm_check_eq. Qed.
		2082	Definition k691 := mk [3;1;2;2;9;4;2;1;13;1;8;2;13;1] 1118217 905.
		2083	Lemma s691: run 7682 k690 = inl k691. Proof. vm_check_eq. Qed.
		2084	Definition k692 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1120788 4.
		2085	Lemma s692: run 7846 k691 = inl k692. Proof. vm_check_eq. Qed.
		2086	Definition k693 := mk [2;1;13;1;8;1;9;1;8;1;12;1;8;1;12;1;13;1] 1122614 2.
		2087	Lemma s693: run 7803 k692 = inl k693. Proof. vm_check_eq. Qed.
		2088	Definition k694 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;2] 1123442 910.
		2089	Lemma s694: run 7621 k693 = inl k694. Proof. vm_check_eq. Qed.
		2090	Definition k695 := mk [3;1;9;1;13;2;12;1;9;2;8;1;9;1;13;1] 1126204 5.
		2091	Lemma s695: run 7730 k694 = inl k695. Proof. vm_check_eq. Qed.
		2092	Definition k696 := mk [4;1;4;1;12;1;9;1;12;1;9;1;12;2;13;1] 1127927 3.
		2093	Lemma s696: run 8133 k695 = inl k696. Proof. vm_check_eq. Qed.
		2094	Definition k697 := mk [3;1;9;1;12;1;8;1;9;1;8;1;13;3] 1129684 3.
		2095	Lemma s697: run 8176 k696 = inl k697. Proof. vm_check_eq. Qed.
		2096	Definition k698 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1131439 8.
		2097	Lemma s698: run 7992 k697 = inl k698. Proof. vm_check_eq. Qed.
		2098	Definition k699 := mk [2;1;3;1;2;2;3;1;2;1;3;1;2;1;4;1;13;2;9;2;8;1;13;2] 1133161 2.
		2099	Lemma s699: run 8071 k698 = inl k699. Proof. vm_check_eq. Qed.
		2100	Definition k700 := mk [3;1;2;2;9;2;3;1;2;4;3;2;13;1;9;1;8;1;13;2] 1134819 84.
		2101	Lemma s700: run 8127 k699 = inl k700. Proof. vm_check_eq. Qed.
		2102	Definition k701 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;1;9;1;13;1] 1136670 26.
		2103	Lemma s701: run 8285 k700 = inl k701. Proof. vm_check_eq. Qed.
		2104	Definition k702 := mk [2;2;4;1;13;2;9;1;13;1;12;1;9;1;12;1;8;1;13;1] 1138551 2.
		2105	Lemma s702: run 8309 k701 = inl k702. Proof. vm_check_eq. Qed.
		2106	Definition k703 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;9;1;13;1] 1140044 46.
		2107	Lemma s703: run 7244 k702 = inl k703. Proof. vm_check_eq. Qed.
		2108	Definition k704 := mk [3;1;2;2;9;5;2;1;13;1;9;2;8;1;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1138782 2307.
		2109	Lemma s704: run 4608 k703 = inl k704. Proof. vm_check_eq. Qed.
		2110	Definition k705 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;2] 1140892 771.
		2111	Lemma s705: run 2653 k704 = inl k705. Proof. vm_check_eq. Qed.
		2112	Definition k706 := mk [3;1;2;2;9;5;3;1;2;4;3;2;9;6;3;1;2;4;3;1] 1141951 1369.
		2113	Lemma s706: run 7585 k705 = inl k706. Proof. vm_check_eq. Qed.
		2114	Definition k707 := mk [3;1;2;2;9;6;3;1;2;4;3;1;2;1;9;1;12;1] 1133690 11267.
		2115	Lemma s707: run 7780 k706 = inl k707. Proof. vm_check_eq. Qed.
		2116	Definition k708 := mk [3;1;2;2;9;4;2;1;9;1;8;1;12;1] 1145741 965.
		2117	Lemma s708: run 8121 k707 = inl k708. Proof. vm_check_eq. Qed.
		2118	Definition k709 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1100081 48392.
		2119	Lemma s709: run 7354 k708 = inl k709. Proof. vm_check_eq. Qed.
		2120	Definition k710 := mk [3;1;9;1;13;1;12;1;13;1;8;1;13;1] 1150081 4.
		2121	Lemma s710: run 6923 k709 = inl k710. Proof. vm_check_eq. Qed.
		2122	Definition k711 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;9;1;13;1;8;1;12;1;13;1] 1151856 33.
		2123	Lemma s711: run 8129 k710 = inl k711. Proof. vm_check_eq. Qed.
		2124	Definition k712 := mk [2;1;13;1;8;2;12;1;8;1;12;2;13;1] 1153657 3.
		2125	Lemma s712: run 8128 k711 = inl k712. Proof. vm_check_eq. Qed.
		2126	Definition k713 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1155299 84.
		2127	Lemma s713: run 7455 k712 = inl k713. Proof. vm_check_eq. Qed.
		2128	Definition k714 := mk [3;1;13;1;9;1;13;2;9;1;13;2] 1157123 3.
		2129	Lemma s714: run 7767 k713 = inl k714. Proof. vm_check_eq. Qed.
		2130	Definition k715 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1114237 44549.
		2131	Lemma s715: run 7145 k714 = inl k715. Proof. vm_check_eq. Qed.
		2132	Definition k716 := mk [3;1;2;2;9;4;2;1;13;1;8;1;13;1] 1159587 906.
		2133	Lemma s716: run 7707 k715 = inl k716. Proof. vm_check_eq. Qed.
		2134	Definition k717 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1044486 117764.
		2135	Lemma s717: run 7978 k716 = inl k717. Proof. vm_check_eq. Qed.
		2136	Definition k718 := mk [2;1;12;1;9;1;8;1;12;2;13;1;8;1;9;1;12;1] 1163862 3.
		2137	Lemma s718: run 7498 k717 = inl k718. Proof. vm_check_eq. Qed.
		2138	Definition k719 := mk [2;2;6;1;9;2;12;1;9;1;13;2;9;2;8;1;9;2;13;1] 1165601 2.
		2139	Lemma s719: run 7700 k718 = inl k719. Proof. vm_check_eq. Qed.
		2140	Definition k720 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1166493 533.
		2141	Lemma s720: run 6959 k719 = inl k720. Proof. vm_check_eq. Qed.
		2142	Definition k721 := mk [3;1;2;2;9;3;2;1;9;3;8;1;12;1] 1168400 82.
		2143	Lemma s721: run 6581 k720 = inl k721. Proof. vm_check_eq. Qed.
		2144	Definition k722 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1;8;1;12;1;8;1;9;1;12;1] 1170305 4.
		2145	Lemma s722: run 8074 k721 = inl k722. Proof. vm_check_eq. Qed.
		2146	Definition k723 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1147371 24579.
		2147	Lemma s723: run 7634 k722 = inl k723. Proof. vm_check_eq. Qed.
		2148	Definition k724 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;9;2;8;1;13;2] 1173607 101.
		2149	Lemma s724: run 7922 k723 = inl k724. Proof. vm_check_eq. Qed.
		2150	Definition k725 := mk [2;1;9;2;2;1;6;1;12;2;9;1;12;1;8;1;13;2] 1175530 2.
		2151	Lemma s725: run 8005 k724 = inl k725. Proof. vm_check_eq. Qed.
		2152	Definition k726 := mk [2;1;9;1;8;3;9;3;12;1] 1177399 3.
		2153	Lemma s726: run 8204 k725 = inl k726. Proof. vm_check_eq. Qed.
		2154	Definition k727 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;8;1;12;1;8;1;9;1;13;2] 1179245 6.
		2155	Lemma s727: run 8185 k726 = inl k727. Proof. vm_check_eq. Qed.
		2156	Definition k728 := mk [3;1;2;4;3;2;8;1;13;1;8;3;12;1;8;1;13;1] 1180941 4.
		2157	Lemma s728: run 6298 k727 = inl k728. Proof. vm_check_eq. Qed.
		2158	Definition k729 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1179303 2494.
		2159	Lemma s729: run 3179 k728 = inl k729. Proof. vm_check_eq. Qed.
		2160	Definition k730 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;9;3;13;2] 1183364 27.
		2161	Lemma s730: run 6131 k729 = inl k730. Proof. vm_check_eq. Qed.
		2162	Definition k731 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2] 1184850 261.
		2163	Lemma s731: run 7155 k730 = inl k731. Proof. vm_check_eq. Qed.
		2164	Definition k732 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;8;1;9;1;8;1;9;1;13;1;9;1;12;1;3;1;9;1] 1186934 2.
		2165	Lemma s732: run 7351 k731 = inl k732. Proof. vm_check_eq. Qed.
		2166	Definition k733 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;1;3;1] 1188437 13.
		2167	Lemma s733: run 6260 k732 = inl k733. Proof. vm_check_eq. Qed.
		2168	Definition k734 := mk [2;2;4;1;12;1;13;1;9;1;13;2;9;1;13;1;9;1;8;1;13;1] 1190215 2.
		2169	Lemma s734: run 6427 k733 = inl k734. Proof. vm_check_eq. Qed.
		2170	Definition k735 := mk [2;1;13;1;9;2;12;1;13;1;9;1;13;1;9;1;8;1;13;1] 1191997 2.
		2171	Lemma s735: run 6925 k734 = inl k735. Proof. vm_check_eq. Qed.
		2172	Definition k736 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1193507 5.
		2173	Lemma s736: run 6660 k735 = inl k736. Proof. vm_check_eq. Qed.
		2174	Definition k737 := mk [3;1;9;1;12;1;13;1;12;3;9;1;13;1;12;1;13;1] 1195211 2.
		2175	Lemma s737: run 7404 k736 = inl k737. Proof. vm_check_eq. Qed.
		2176	Definition k738 := mk [3;1;2;2;3;1;2;1;3;1;4;1;4;1;12;1;9;2;8;1;13;2;12;1] 1196889 4.
		2177	Lemma s738: run 6975 k737 = inl k738. Proof. vm_check_eq. Qed.
		2178	Definition k739 := mk [3;1;12;1;9;2;8;1;13;1;12;1;9;1;13;1;12;1;13;1;2;1;13;1] 1198484 2.
		2179	Lemma s739: run 6898 k738 = inl k739. Proof. vm_check_eq. Qed.
		2180	Definition k740 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;12;1] 1199752 126.
		2181	Lemma s740: run 6590 k739 = inl k740. Proof. vm_check_eq. Qed.
		2182	Definition k741 := mk [3;1;9;1;12;1;9;1;8;3;13;2] 1201594 3.
		2183	Lemma s741: run 8100 k740 = inl k741. Proof. vm_check_eq. Qed.
		2184	Definition k742 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1] 1203378 10.
		2185	Lemma s742: run 7871 k741 = inl k742. Proof. vm_check_eq. Qed.
		2186	Definition k743 := mk [3;1;5;1;7;1;6;1;9;1;13;1;9;1;8;1;9;2;12;1;13;1] 1205163 2.
		2187	Lemma s743: run 7754 k742 = inl k743. Proof. vm_check_eq. Qed.
		2188	Definition k744 := mk [3;1;2;2;9;4;3;1;2;1;3;1;2;1;13;1;12;1;13;1;9;6;2;3;3;1;2;1;3;1] 1206846 46.
		2189	Lemma s744: run 7428 k743 = inl k744. Proof. vm_check_eq. Qed.
		2190	Definition k745 := mk [3;1;2;2;9;5;3;1;2;4;3;1;2;1;9;2;8;1;13;1] 1205946 2627.
		2191	Lemma s745: run 7428 k744 = inl k745. Proof. vm_check_eq. Qed.
		2192	Definition k746 := mk [2;1;13;1;8;1;9;1;12;1;13;1;9;1;13;3] 1210356 2.
		2193	Lemma s746: run 7831 k745 = inl k746. Proof. vm_check_eq. Qed.
		2194	Definition k747 := mk [3;1;2;2;9;3;3;1;2;4;3;1;2;1;13;1;9;2;13;1] 1211735 503.
		2195	Lemma s747: run 7959 k746 = inl k747. Proof. vm_check_eq. Qed.
		2196	Definition k748 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 1205723 8007.
		2197	Lemma s748: run 5597 k747 = inl k748. Proof. vm_check_eq. Qed.
		2198	Definition k749 := mk [3;1;2;2;9;5;2;1;13;1;12;1;13;1] 1211589 3811.
		2199	Lemma s749: run 5867 k748 = inl k749. Proof. vm_check_eq. Qed.
		2200	Definition k750 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;12;1;4;1;3;1;2;4;3;1;2;1;13;1] 1217093 4.
		2201	Lemma s750: run 7103 k749 = inl k750. Proof. vm_check_eq. Qed.
		2202	Lemma s751: run 7514 k750 = inr tt. Proof. vm_check_eq. Qed.
		2203	Lemma h750: halts tm (kden k750). Proof. exact (run_halt _ _ s751). Qed.
		2204	Lemma h749: halts tm (kden k749). Proof. exact (halts_evstep _ _ _ h750 (run_ok _ _ _ s750)). Qed.
		2205	Lemma h748: halts tm (kden k748). Proof. exact (halts_evstep _ _ _ h749 (run_ok _ _ _ s749)). Qed.
		2206	Lemma h747: halts tm (kden k747). Proof. exact (halts_evstep _ _ _ h748 (run_ok _ _ _ s748)). Qed.
		2207	Lemma h746: halts tm (kden k746). Proof. exact (halts_evstep _ _ _ h747 (run_ok _ _ _ s747)). Qed.
		2208	Lemma h745: halts tm (kden k745). Proof. exact (halts_evstep _ _ _ h746 (run_ok _ _ _ s746)). Qed.
		2209	Lemma h744: halts tm (kden k744). Proof. exact (halts_evstep _ _ _ h745 (run_ok _ _ _ s745)). Qed.
		2210	Lemma h743: halts tm (kden k743). Proof. exact (halts_evstep _ _ _ h744 (run_ok _ _ _ s744)). Qed.
		2211	Lemma h742: halts tm (kden k742). Proof. exact (halts_evstep _ _ _ h743 (run_ok _ _ _ s743)). Qed.
		2212	Lemma h741: halts tm (kden k741). Proof. exact (halts_evstep _ _ _ h742 (run_ok _ _ _ s742)). Qed.
		2213	Lemma h740: halts tm (kden k740). Proof. exact (halts_evstep _ _ _ h741 (run_ok _ _ _ s741)). Qed.
		2214	Lemma h739: halts tm (kden k739). Proof. exact (halts_evstep _ _ _ h740 (run_ok _ _ _ s740)). Qed.
		2215	Lemma h738: halts tm (kden k738). Proof. exact (halts_evstep _ _ _ h739 (run_ok _ _ _ s739)). Qed.
		2216	Lemma h737: halts tm (kden k737). Proof. exact (halts_evstep _ _ _ h738 (run_ok _ _ _ s738)). Qed.
		2217	Lemma h736: halts tm (kden k736). Proof. exact (halts_evstep _ _ _ h737 (run_ok _ _ _ s737)). Qed.
		2218	Lemma h735: halts tm (kden k735). Proof. exact (halts_evstep _ _ _ h736 (run_ok _ _ _ s736)). Qed.
		2219	Lemma h734: halts tm (kden k734). Proof. exact (halts_evstep _ _ _ h735 (run_ok _ _ _ s735)). Qed.
		2220	Lemma h733: halts tm (kden k733). Proof. exact (halts_evstep _ _ _ h734 (run_ok _ _ _ s734)). Qed.
		2221	Lemma h732: halts tm (kden k732). Proof. exact (halts_evstep _ _ _ h733 (run_ok _ _ _ s733)). Qed.
		2222	Lemma h731: halts tm (kden k731). Proof. exact (halts_evstep _ _ _ h732 (run_ok _ _ _ s732)). Qed.
		2223	Lemma h730: halts tm (kden k730). Proof. exact (halts_evstep _ _ _ h731 (run_ok _ _ _ s731)). Qed.
		2224	Lemma h729: halts tm (kden k729). Proof. exact (halts_evstep _ _ _ h730 (run_ok _ _ _ s730)). Qed.
		2225	Lemma h728: halts tm (kden k728). Proof. exact (halts_evstep _ _ _ h729 (run_ok _ _ _ s729)). Qed.
		2226	Lemma h727: halts tm (kden k727). Proof. exact (halts_evstep _ _ _ h728 (run_ok _ _ _ s728)). Qed.
		2227	Lemma h726: halts tm (kden k726). Proof. exact (halts_evstep _ _ _ h727 (run_ok _ _ _ s727)). Qed.
		2228	Lemma h725: halts tm (kden k725). Proof. exact (halts_evstep _ _ _ h726 (run_ok _ _ _ s726)). Qed.
		2229	Lemma h724: halts tm (kden k724). Proof. exact (halts_evstep _ _ _ h725 (run_ok _ _ _ s725)). Qed.
		2230	Lemma h723: halts tm (kden k723). Proof. exact (halts_evstep _ _ _ h724 (run_ok _ _ _ s724)). Qed.
		2231	Lemma h722: halts tm (kden k722). Proof. exact (halts_evstep _ _ _ h723 (run_ok _ _ _ s723)). Qed.
		2232	Lemma h721: halts tm (kden k721). Proof. exact (halts_evstep _ _ _ h722 (run_ok _ _ _ s722)). Qed.
		2233	Lemma h720: halts tm (kden k720). Proof. exact (halts_evstep _ _ _ h721 (run_ok _ _ _ s721)). Qed.
		2234	Lemma h719: halts tm (kden k719). Proof. exact (halts_evstep _ _ _ h720 (run_ok _ _ _ s720)). Qed.
		2235	Lemma h718: halts tm (kden k718). Proof. exact (halts_evstep _ _ _ h719 (run_ok _ _ _ s719)). Qed.
		2236	Lemma h717: halts tm (kden k717). Proof. exact (halts_evstep _ _ _ h718 (run_ok _ _ _ s718)). Qed.
		2237	Lemma h716: halts tm (kden k716). Proof. exact (halts_evstep _ _ _ h717 (run_ok _ _ _ s717)). Qed.
		2238	Lemma h715: halts tm (kden k715). Proof. exact (halts_evstep _ _ _ h716 (run_ok _ _ _ s716)). Qed.
		2239	Lemma h714: halts tm (kden k714). Proof. exact (halts_evstep _ _ _ h715 (run_ok _ _ _ s715)). Qed.
		2240	Lemma h713: halts tm (kden k713). Proof. exact (halts_evstep _ _ _ h714 (run_ok _ _ _ s714)). Qed.
		2241	Lemma h712: halts tm (kden k712). Proof. exact (halts_evstep _ _ _ h713 (run_ok _ _ _ s713)). Qed.
		2242	Lemma h711: halts tm (kden k711). Proof. exact (halts_evstep _ _ _ h712 (run_ok _ _ _ s712)). Qed.
		2243	Lemma h710: halts tm (kden k710). Proof. exact (halts_evstep _ _ _ h711 (run_ok _ _ _ s711)). Qed.
		2244	Lemma h709: halts tm (kden k709). Proof. exact (halts_evstep _ _ _ h710 (run_ok _ _ _ s710)). Qed.
		2245	Lemma h708: halts tm (kden k708). Proof. exact (halts_evstep _ _ _ h709 (run_ok _ _ _ s709)). Qed.
		2246	Lemma h707: halts tm (kden k707). Proof. exact (halts_evstep _ _ _ h708 (run_ok _ _ _ s708)). Qed.
		2247	Lemma h706: halts tm (kden k706). Proof. exact (halts_evstep _ _ _ h707 (run_ok _ _ _ s707)). Qed.
		2248	Lemma h705: halts tm (kden k705). Proof. exact (halts_evstep _ _ _ h706 (run_ok _ _ _ s706)). Qed.
		2249	Lemma h704: halts tm (kden k704). Proof. exact (halts_evstep _ _ _ h705 (run_ok _ _ _ s705)). Qed.
		2250	Lemma h703: halts tm (kden k703). Proof. exact (halts_evstep _ _ _ h704 (run_ok _ _ _ s704)). Qed.
		2251	Lemma h702: halts tm (kden k702). Proof. exact (halts_evstep _ _ _ h703 (run_ok _ _ _ s703)). Qed.
		2252	Lemma h701: halts tm (kden k701). Proof. exact (halts_evstep _ _ _ h702 (run_ok _ _ _ s702)). Qed.
		2253	Lemma h700: halts tm (kden k700). Proof. exact (halts_evstep _ _ _ h701 (run_ok _ _ _ s701)). Qed.
		2254	Lemma h699: halts tm (kden k699). Proof. exact (halts_evstep _ _ _ h700 (run_ok _ _ _ s700)). Qed.
		2255	Lemma h698: halts tm (kden k698). Proof. exact (halts_evstep _ _ _ h699 (run_ok _ _ _ s699)). Qed.
		2256	Lemma h697: halts tm (kden k697). Proof. exact (halts_evstep _ _ _ h698 (run_ok _ _ _ s698)). Qed.
		2257	Lemma h696: halts tm (kden k696). Proof. exact (halts_evstep _ _ _ h697 (run_ok _ _ _ s697)). Qed.
		2258	Lemma h695: halts tm (kden k695). Proof. exact (halts_evstep _ _ _ h696 (run_ok _ _ _ s696)). Qed.
		2259	Lemma h694: halts tm (kden k694). Proof. exact (halts_evstep _ _ _ h695 (run_ok _ _ _ s695)). Qed.
		2260	Lemma h693: halts tm (kden k693). Proof. exact (halts_evstep _ _ _ h694 (run_ok _ _ _ s694)). Qed.
		2261	Lemma h692: halts tm (kden k692). Proof. exact (halts_evstep _ _ _ h693 (run_ok _ _ _ s693)). Qed.
		2262	Lemma h691: halts tm (kden k691). Proof. exact (halts_evstep _ _ _ h692 (run_ok _ _ _ s692)). Qed.
		2263	Lemma h690: halts tm (kden k690). Proof. exact (halts_evstep _ _ _ h691 (run_ok _ _ _ s691)). Qed.
		2264	Lemma h689: halts tm (kden k689). Proof. exact (halts_evstep _ _ _ h690 (run_ok _ _ _ s690)). Qed.
		2265	Lemma h688: halts tm (kden k688). Proof. exact (halts_evstep _ _ _ h689 (run_ok _ _ _ s689)). Qed.
		2266	Lemma h687: halts tm (kden k687). Proof. exact (halts_evstep _ _ _ h688 (run_ok _ _ _ s688)). Qed.
		2267	Lemma h686: halts tm (kden k686). Proof. exact (halts_evstep _ _ _ h687 (run_ok _ _ _ s687)). Qed.
		2268	Lemma h685: halts tm (kden k685). Proof. exact (halts_evstep _ _ _ h686 (run_ok _ _ _ s686)). Qed.
		2269	Lemma h684: halts tm (kden k684). Proof. exact (halts_evstep _ _ _ h685 (run_ok _ _ _ s685)). Qed.
		2270	Lemma h683: halts tm (kden k683). Proof. exact (halts_evstep _ _ _ h684 (run_ok _ _ _ s684)). Qed.
		2271	Lemma h682: halts tm (kden k682). Proof. exact (halts_evstep _ _ _ h683 (run_ok _ _ _ s683)). Qed.
		2272	Lemma h681: halts tm (kden k681). Proof. exact (halts_evstep _ _ _ h682 (run_ok _ _ _ s682)). Qed.
		2273	Lemma h680: halts tm (kden k680). Proof. exact (halts_evstep _ _ _ h681 (run_ok _ _ _ s681)). Qed.
		2274	Lemma h679: halts tm (kden k679). Proof. exact (halts_evstep _ _ _ h680 (run_ok _ _ _ s680)). Qed.
		2275	Lemma h678: halts tm (kden k678). Proof. exact (halts_evstep _ _ _ h679 (run_ok _ _ _ s679)). Qed.
		2276	Lemma h677: halts tm (kden k677). Proof. exact (halts_evstep _ _ _ h678 (run_ok _ _ _ s678)). Qed.
		2277	Lemma h676: halts tm (kden k676). Proof. exact (halts_evstep _ _ _ h677 (run_ok _ _ _ s677)). Qed.
		2278	Lemma h675: halts tm (kden k675). Proof. exact (halts_evstep _ _ _ h676 (run_ok _ _ _ s676)). Qed.
		2279	Lemma h674: halts tm (kden k674). Proof. exact (halts_evstep _ _ _ h675 (run_ok _ _ _ s675)). Qed.
		2280	Lemma h673: halts tm (kden k673). Proof. exact (halts_evstep _ _ _ h674 (run_ok _ _ _ s674)). Qed.
		2281	Lemma h672: halts tm (kden k672). Proof. exact (halts_evstep _ _ _ h673 (run_ok _ _ _ s673)). Qed.
		2282	Lemma h671: halts tm (kden k671). Proof. exact (halts_evstep _ _ _ h672 (run_ok _ _ _ s672)). Qed.
		2283	Lemma h670: halts tm (kden k670). Proof. exact (halts_evstep _ _ _ h671 (run_ok _ _ _ s671)). Qed.
		2284	Lemma h669: halts tm (kden k669). Proof. exact (halts_evstep _ _ _ h670 (run_ok _ _ _ s670)). Qed.
		2285	Lemma h668: halts tm (kden k668). Proof. exact (halts_evstep _ _ _ h669 (run_ok _ _ _ s669)). Qed.
		2286	Lemma h667: halts tm (kden k667). Proof. exact (halts_evstep _ _ _ h668 (run_ok _ _ _ s668)). Qed.
		2287	Lemma h666: halts tm (kden k666). Proof. exact (halts_evstep _ _ _ h667 (run_ok _ _ _ s667)). Qed.
		2288	Lemma h665: halts tm (kden k665). Proof. exact (halts_evstep _ _ _ h666 (run_ok _ _ _ s666)). Qed.
		2289	Lemma h664: halts tm (kden k664). Proof. exact (halts_evstep _ _ _ h665 (run_ok _ _ _ s665)). Qed.
		2290	Lemma h663: halts tm (kden k663). Proof. exact (halts_evstep _ _ _ h664 (run_ok _ _ _ s664)). Qed.
		2291	Lemma h662: halts tm (kden k662). Proof. exact (halts_evstep _ _ _ h663 (run_ok _ _ _ s663)). Qed.
		2292	Lemma h661: halts tm (kden k661). Proof. exact (halts_evstep _ _ _ h662 (run_ok _ _ _ s662)). Qed.
		2293	Lemma h660: halts tm (kden k660). Proof. exact (halts_evstep _ _ _ h661 (run_ok _ _ _ s661)). Qed.
		2294	Lemma h659: halts tm (kden k659). Proof. exact (halts_evstep _ _ _ h660 (run_ok _ _ _ s660)). Qed.
		2295	Lemma h658: halts tm (kden k658). Proof. exact (halts_evstep _ _ _ h659 (run_ok _ _ _ s659)). Qed.
		2296	Lemma h657: halts tm (kden k657). Proof. exact (halts_evstep _ _ _ h658 (run_ok _ _ _ s658)). Qed.
		2297	Lemma h656: halts tm (kden k656). Proof. exact (halts_evstep _ _ _ h657 (run_ok _ _ _ s657)). Qed.
		2298	Lemma h655: halts tm (kden k655). Proof. exact (halts_evstep _ _ _ h656 (run_ok _ _ _ s656)). Qed.
		2299	Lemma h654: halts tm (kden k654). Proof. exact (halts_evstep _ _ _ h655 (run_ok _ _ _ s655)). Qed.
		2300	Lemma h653: halts tm (kden k653). Proof. exact (halts_evstep _ _ _ h654 (run_ok _ _ _ s654)). Qed.
		2301	Lemma h652: halts tm (kden k652). Proof. exact (halts_evstep _ _ _ h653 (run_ok _ _ _ s653)). Qed.
		2302	Lemma h651: halts tm (kden k651). Proof. exact (halts_evstep _ _ _ h652 (run_ok _ _ _ s652)). Qed.
		2303	Lemma h650: halts tm (kden k650). Proof. exact (halts_evstep _ _ _ h651 (run_ok _ _ _ s651)). Qed.
		2304	Lemma h649: halts tm (kden k649). Proof. exact (halts_evstep _ _ _ h650 (run_ok _ _ _ s650)). Qed.
		2305	Lemma h648: halts tm (kden k648). Proof. exact (halts_evstep _ _ _ h649 (run_ok _ _ _ s649)). Qed.
		2306	Lemma h647: halts tm (kden k647). Proof. exact (halts_evstep _ _ _ h648 (run_ok _ _ _ s648)). Qed.
		2307	Lemma h646: halts tm (kden k646). Proof. exact (halts_evstep _ _ _ h647 (run_ok _ _ _ s647)). Qed.
		2308	Lemma h645: halts tm (kden k645). Proof. exact (halts_evstep _ _ _ h646 (run_ok _ _ _ s646)). Qed.
		2309	Lemma h644: halts tm (kden k644). Proof. exact (halts_evstep _ _ _ h645 (run_ok _ _ _ s645)). Qed.
		2310	Lemma h643: halts tm (kden k643). Proof. exact (halts_evstep _ _ _ h644 (run_ok _ _ _ s644)). Qed.
		2311	Lemma h642: halts tm (kden k642). Proof. exact (halts_evstep _ _ _ h643 (run_ok _ _ _ s643)). Qed.
		2312	Lemma h641: halts tm (kden k641). Proof. exact (halts_evstep _ _ _ h642 (run_ok _ _ _ s642)). Qed.
		2313	Lemma h640: halts tm (kden k640). Proof. exact (halts_evstep _ _ _ h641 (run_ok _ _ _ s641)). Qed.
		2314	Lemma h639: halts tm (kden k639). Proof. exact (halts_evstep _ _ _ h640 (run_ok _ _ _ s640)). Qed.
		2315	Lemma h638: halts tm (kden k638). Proof. exact (halts_evstep _ _ _ h639 (run_ok _ _ _ s639)). Qed.
		2316	Lemma h637: halts tm (kden k637). Proof. exact (halts_evstep _ _ _ h638 (run_ok _ _ _ s638)). Qed.
		2317	Lemma h636: halts tm (kden k636). Proof. exact (halts_evstep _ _ _ h637 (run_ok _ _ _ s637)). Qed.
		2318	Lemma h635: halts tm (kden k635). Proof. exact (halts_evstep _ _ _ h636 (run_ok _ _ _ s636)). Qed.
		2319	Lemma h634: halts tm (kden k634). Proof. exact (halts_evstep _ _ _ h635 (run_ok _ _ _ s635)). Qed.
		2320	Lemma h633: halts tm (kden k633). Proof. exact (halts_evstep _ _ _ h634 (run_ok _ _ _ s634)). Qed.
		2321	Lemma h632: halts tm (kden k632). Proof. exact (halts_evstep _ _ _ h633 (run_ok _ _ _ s633)). Qed.
		2322	Lemma h631: halts tm (kden k631). Proof. exact (halts_evstep _ _ _ h632 (run_ok _ _ _ s632)). Qed.
		2323	Lemma h630: halts tm (kden k630). Proof. exact (halts_evstep _ _ _ h631 (run_ok _ _ _ s631)). Qed.
		2324	Lemma h629: halts tm (kden k629). Proof. exact (halts_evstep _ _ _ h630 (run_ok _ _ _ s630)). Qed.
		2325	Lemma h628: halts tm (kden k628). Proof. exact (halts_evstep _ _ _ h629 (run_ok _ _ _ s629)). Qed.
		2326	Lemma h627: halts tm (kden k627). Proof. exact (halts_evstep _ _ _ h628 (run_ok _ _ _ s628)). Qed.
		2327	Lemma h626: halts tm (kden k626). Proof. exact (halts_evstep _ _ _ h627 (run_ok _ _ _ s627)). Qed.
		2328	Lemma h625: halts tm (kden k625). Proof. exact (halts_evstep _ _ _ h626 (run_ok _ _ _ s626)). Qed.
		2329	Lemma h624: halts tm (kden k624). Proof. exact (halts_evstep _ _ _ h625 (run_ok _ _ _ s625)). Qed.
		2330	Lemma h623: halts tm (kden k623). Proof. exact (halts_evstep _ _ _ h624 (run_ok _ _ _ s624)). Qed.
		2331	Lemma h622: halts tm (kden k622). Proof. exact (halts_evstep _ _ _ h623 (run_ok _ _ _ s623)). Qed.
		2332	Lemma h621: halts tm (kden k621). Proof. exact (halts_evstep _ _ _ h622 (run_ok _ _ _ s622)). Qed.
		2333	Lemma h620: halts tm (kden k620). Proof. exact (halts_evstep _ _ _ h621 (run_ok _ _ _ s621)). Qed.
		2334	Lemma h619: halts tm (kden k619). Proof. exact (halts_evstep _ _ _ h620 (run_ok _ _ _ s620)). Qed.
		2335	Lemma h618: halts tm (kden k618). Proof. exact (halts_evstep _ _ _ h619 (run_ok _ _ _ s619)). Qed.
		2336	Lemma h617: halts tm (kden k617). Proof. exact (halts_evstep _ _ _ h618 (run_ok _ _ _ s618)). Qed.
		2337	Lemma h616: halts tm (kden k616). Proof. exact (halts_evstep _ _ _ h617 (run_ok _ _ _ s617)). Qed.
		2338	Lemma h615: halts tm (kden k615). Proof. exact (halts_evstep _ _ _ h616 (run_ok _ _ _ s616)). Qed.
		2339	Lemma h614: halts tm (kden k614). Proof. exact (halts_evstep _ _ _ h615 (run_ok _ _ _ s615)). Qed.
		2340	Lemma h613: halts tm (kden k613). Proof. exact (halts_evstep _ _ _ h614 (run_ok _ _ _ s614)). Qed.
		2341	Lemma h612: halts tm (kden k612). Proof. exact (halts_evstep _ _ _ h613 (run_ok _ _ _ s613)). Qed.
		2342	Lemma h611: halts tm (kden k611). Proof. exact (halts_evstep _ _ _ h612 (run_ok _ _ _ s612)). Qed.
		2343	Lemma h610: halts tm (kden k610). Proof. exact (halts_evstep _ _ _ h611 (run_ok _ _ _ s611)). Qed.
		2344	Lemma h609: halts tm (kden k609). Proof. exact (halts_evstep _ _ _ h610 (run_ok _ _ _ s610)). Qed.
		2345	Lemma h608: halts tm (kden k608). Proof. exact (halts_evstep _ _ _ h609 (run_ok _ _ _ s609)). Qed.
		2346	Lemma h607: halts tm (kden k607). Proof. exact (halts_evstep _ _ _ h608 (run_ok _ _ _ s608)). Qed.
		2347	Lemma h606: halts tm (kden k606). Proof. exact (halts_evstep _ _ _ h607 (run_ok _ _ _ s607)). Qed.
		2348	Lemma h605: halts tm (kden k605). Proof. exact (halts_evstep _ _ _ h606 (run_ok _ _ _ s606)). Qed.
		2349	Lemma h604: halts tm (kden k604). Proof. exact (halts_evstep _ _ _ h605 (run_ok _ _ _ s605)). Qed.
		2350	Lemma h603: halts tm (kden k603). Proof. exact (halts_evstep _ _ _ h604 (run_ok _ _ _ s604)). Qed.
		2351	Lemma h602: halts tm (kden k602). Proof. exact (halts_evstep _ _ _ h603 (run_ok _ _ _ s603)). Qed.
		2352	Lemma h601: halts tm (kden k601). Proof. exact (halts_evstep _ _ _ h602 (run_ok _ _ _ s602)). Qed.
		2353	Lemma h600: halts tm (kden k600). Proof. exact (halts_evstep _ _ _ h601 (run_ok _ _ _ s601)). Qed.
		2354	Lemma h599: halts tm (kden k599). Proof. exact (halts_evstep _ _ _ h600 (run_ok _ _ _ s600)). Qed.
		2355	Lemma h598: halts tm (kden k598). Proof. exact (halts_evstep _ _ _ h599 (run_ok _ _ _ s599)). Qed.
		2356	Lemma h597: halts tm (kden k597). Proof. exact (halts_evstep _ _ _ h598 (run_ok _ _ _ s598)). Qed.
		2357	Lemma h596: halts tm (kden k596). Proof. exact (halts_evstep _ _ _ h597 (run_ok _ _ _ s597)). Qed.
		2358	Lemma h595: halts tm (kden k595). Proof. exact (halts_evstep _ _ _ h596 (run_ok _ _ _ s596)). Qed.
		2359	Lemma h594: halts tm (kden k594). Proof. exact (halts_evstep _ _ _ h595 (run_ok _ _ _ s595)). Qed.
		2360	Lemma h593: halts tm (kden k593). Proof. exact (halts_evstep _ _ _ h594 (run_ok _ _ _ s594)). Qed.
		2361	Lemma h592: halts tm (kden k592). Proof. exact (halts_evstep _ _ _ h593 (run_ok _ _ _ s593)). Qed.
		2362	Lemma h591: halts tm (kden k591). Proof. exact (halts_evstep _ _ _ h592 (run_ok _ _ _ s592)). Qed.
		2363	Lemma h590: halts tm (kden k590). Proof. exact (halts_evstep _ _ _ h591 (run_ok _ _ _ s591)). Qed.
		2364	Lemma h589: halts tm (kden k589). Proof. exact (halts_evstep _ _ _ h590 (run_ok _ _ _ s590)). Qed.
		2365	Lemma h588: halts tm (kden k588). Proof. exact (halts_evstep _ _ _ h589 (run_ok _ _ _ s589)). Qed.
		2366	Lemma h587: halts tm (kden k587). Proof. exact (halts_evstep _ _ _ h588 (run_ok _ _ _ s588)). Qed.
		2367	Lemma h586: halts tm (kden k586). Proof. exact (halts_evstep _ _ _ h587 (run_ok _ _ _ s587)). Qed.
		2368	Lemma h585: halts tm (kden k585). Proof. exact (halts_evstep _ _ _ h586 (run_ok _ _ _ s586)). Qed.
		2369	Lemma h584: halts tm (kden k584). Proof. exact (halts_evstep _ _ _ h585 (run_ok _ _ _ s585)). Qed.
		2370	Lemma h583: halts tm (kden k583). Proof. exact (halts_evstep _ _ _ h584 (run_ok _ _ _ s584)). Qed.
		2371	Lemma h582: halts tm (kden k582). Proof. exact (halts_evstep _ _ _ h583 (run_ok _ _ _ s583)). Qed.
		2372	Lemma h581: halts tm (kden k581). Proof. exact (halts_evstep _ _ _ h582 (run_ok _ _ _ s582)). Qed.
		2373	Lemma h580: halts tm (kden k580). Proof. exact (halts_evstep _ _ _ h581 (run_ok _ _ _ s581)). Qed.
		2374	Lemma h579: halts tm (kden k579). Proof. exact (halts_evstep _ _ _ h580 (run_ok _ _ _ s580)). Qed.
		2375	Lemma h578: halts tm (kden k578). Proof. exact (halts_evstep _ _ _ h579 (run_ok _ _ _ s579)). Qed.
		2376	Lemma h577: halts tm (kden k577). Proof. exact (halts_evstep _ _ _ h578 (run_ok _ _ _ s578)). Qed.
		2377	Lemma h576: halts tm (kden k576). Proof. exact (halts_evstep _ _ _ h577 (run_ok _ _ _ s577)). Qed.
		2378	Lemma h575: halts tm (kden k575). Proof. exact (halts_evstep _ _ _ h576 (run_ok _ _ _ s576)). Qed.
		2379	Lemma h574: halts tm (kden k574). Proof. exact (halts_evstep _ _ _ h575 (run_ok _ _ _ s575)). Qed.
		2380	Lemma h573: halts tm (kden k573). Proof. exact (halts_evstep _ _ _ h574 (run_ok _ _ _ s574)). Qed.
		2381	Lemma h572: halts tm (kden k572). Proof. exact (halts_evstep _ _ _ h573 (run_ok _ _ _ s573)). Qed.
		2382	Lemma h571: halts tm (kden k571). Proof. exact (halts_evstep _ _ _ h572 (run_ok _ _ _ s572)). Qed.
		2383	Lemma h570: halts tm (kden k570). Proof. exact (halts_evstep _ _ _ h571 (run_ok _ _ _ s571)). Qed.
		2384	Lemma h569: halts tm (kden k569). Proof. exact (halts_evstep _ _ _ h570 (run_ok _ _ _ s570)). Qed.
		2385	Lemma h568: halts tm (kden k568). Proof. exact (halts_evstep _ _ _ h569 (run_ok _ _ _ s569)). Qed.
		2386	Lemma h567: halts tm (kden k567). Proof. exact (halts_evstep _ _ _ h568 (run_ok _ _ _ s568)). Qed.
		2387	Lemma h566: halts tm (kden k566). Proof. exact (halts_evstep _ _ _ h567 (run_ok _ _ _ s567)). Qed.
		2388	Lemma h565: halts tm (kden k565). Proof. exact (halts_evstep _ _ _ h566 (run_ok _ _ _ s566)). Qed.
		2389	Lemma h564: halts tm (kden k564). Proof. exact (halts_evstep _ _ _ h565 (run_ok _ _ _ s565)). Qed.
		2390	Lemma h563: halts tm (kden k563). Proof. exact (halts_evstep _ _ _ h564 (run_ok _ _ _ s564)). Qed.
		2391	Lemma h562: halts tm (kden k562). Proof. exact (halts_evstep _ _ _ h563 (run_ok _ _ _ s563)). Qed.
		2392	Lemma h561: halts tm (kden k561). Proof. exact (halts_evstep _ _ _ h562 (run_ok _ _ _ s562)). Qed.
		2393	Lemma h560: halts tm (kden k560). Proof. exact (halts_evstep _ _ _ h561 (run_ok _ _ _ s561)). Qed.
		2394	Lemma h559: halts tm (kden k559). Proof. exact (halts_evstep _ _ _ h560 (run_ok _ _ _ s560)). Qed.
		2395	Lemma h558: halts tm (kden k558). Proof. exact (halts_evstep _ _ _ h559 (run_ok _ _ _ s559)). Qed.
		2396	Lemma h557: halts tm (kden k557). Proof. exact (halts_evstep _ _ _ h558 (run_ok _ _ _ s558)). Qed.
		2397	Lemma h556: halts tm (kden k556). Proof. exact (halts_evstep _ _ _ h557 (run_ok _ _ _ s557)). Qed.
		2398	Lemma h555: halts tm (kden k555). Proof. exact (halts_evstep _ _ _ h556 (run_ok _ _ _ s556)). Qed.
		2399	Lemma h554: halts tm (kden k554). Proof. exact (halts_evstep _ _ _ h555 (run_ok _ _ _ s555)). Qed.
		2400	Lemma h553: halts tm (kden k553). Proof. exact (halts_evstep _ _ _ h554 (run_ok _ _ _ s554)). Qed.
		2401	Lemma h552: halts tm (kden k552). Proof. exact (halts_evstep _ _ _ h553 (run_ok _ _ _ s553)). Qed.
		2402	Lemma h551: halts tm (kden k551). Proof. exact (halts_evstep _ _ _ h552 (run_ok _ _ _ s552)). Qed.
		2403	Lemma h550: halts tm (kden k550). Proof. exact (halts_evstep _ _ _ h551 (run_ok _ _ _ s551)). Qed.
		2404	Lemma h549: halts tm (kden k549). Proof. exact (halts_evstep _ _ _ h550 (run_ok _ _ _ s550)). Qed.
		2405	Lemma h548: halts tm (kden k548). Proof. exact (halts_evstep _ _ _ h549 (run_ok _ _ _ s549)). Qed.
		2406	Lemma h547: halts tm (kden k547). Proof. exact (halts_evstep _ _ _ h548 (run_ok _ _ _ s548)). Qed.
		2407	Lemma h546: halts tm (kden k546). Proof. exact (halts_evstep _ _ _ h547 (run_ok _ _ _ s547)). Qed.
		2408	Lemma h545: halts tm (kden k545). Proof. exact (halts_evstep _ _ _ h546 (run_ok _ _ _ s546)). Qed.
		2409	Lemma h544: halts tm (kden k544). Proof. exact (halts_evstep _ _ _ h545 (run_ok _ _ _ s545)). Qed.
		2410	Lemma h543: halts tm (kden k543). Proof. exact (halts_evstep _ _ _ h544 (run_ok _ _ _ s544)). Qed.
		2411	Lemma h542: halts tm (kden k542). Proof. exact (halts_evstep _ _ _ h543 (run_ok _ _ _ s543)). Qed.
		2412	Lemma h541: halts tm (kden k541). Proof. exact (halts_evstep _ _ _ h542 (run_ok _ _ _ s542)). Qed.
		2413	Lemma h540: halts tm (kden k540). Proof. exact (halts_evstep _ _ _ h541 (run_ok _ _ _ s541)). Qed.
		2414	Lemma h539: halts tm (kden k539). Proof. exact (halts_evstep _ _ _ h540 (run_ok _ _ _ s540)). Qed.
		2415	Lemma h538: halts tm (kden k538). Proof. exact (halts_evstep _ _ _ h539 (run_ok _ _ _ s539)). Qed.
		2416	Lemma h537: halts tm (kden k537). Proof. exact (halts_evstep _ _ _ h538 (run_ok _ _ _ s538)). Qed.
		2417	Lemma h536: halts tm (kden k536). Proof. exact (halts_evstep _ _ _ h537 (run_ok _ _ _ s537)). Qed.
		2418	Lemma h535: halts tm (kden k535). Proof. exact (halts_evstep _ _ _ h536 (run_ok _ _ _ s536)). Qed.
		2419	Lemma h534: halts tm (kden k534). Proof. exact (halts_evstep _ _ _ h535 (run_ok _ _ _ s535)). Qed.
		2420	Lemma h533: halts tm (kden k533). Proof. exact (halts_evstep _ _ _ h534 (run_ok _ _ _ s534)). Qed.
		2421	Lemma h532: halts tm (kden k532). Proof. exact (halts_evstep _ _ _ h533 (run_ok _ _ _ s533)). Qed.
		2422	Lemma h531: halts tm (kden k531). Proof. exact (halts_evstep _ _ _ h532 (run_ok _ _ _ s532)). Qed.
		2423	Lemma h530: halts tm (kden k530). Proof. exact (halts_evstep _ _ _ h531 (run_ok _ _ _ s531)). Qed.
		2424	Lemma h529: halts tm (kden k529). Proof. exact (halts_evstep _ _ _ h530 (run_ok _ _ _ s530)). Qed.
		2425	Lemma h528: halts tm (kden k528). Proof. exact (halts_evstep _ _ _ h529 (run_ok _ _ _ s529)). Qed.
		2426	Lemma h527: halts tm (kden k527). Proof. exact (halts_evstep _ _ _ h528 (run_ok _ _ _ s528)). Qed.
		2427	Lemma h526: halts tm (kden k526). Proof. exact (halts_evstep _ _ _ h527 (run_ok _ _ _ s527)). Qed.
		2428	Lemma h525: halts tm (kden k525). Proof. exact (halts_evstep _ _ _ h526 (run_ok _ _ _ s526)). Qed.
		2429	Lemma h524: halts tm (kden k524). Proof. exact (halts_evstep _ _ _ h525 (run_ok _ _ _ s525)). Qed.
		2430	Lemma h523: halts tm (kden k523). Proof. exact (halts_evstep _ _ _ h524 (run_ok _ _ _ s524)). Qed.
		2431	Lemma h522: halts tm (kden k522). Proof. exact (halts_evstep _ _ _ h523 (run_ok _ _ _ s523)). Qed.
		2432	Lemma h521: halts tm (kden k521). Proof. exact (halts_evstep _ _ _ h522 (run_ok _ _ _ s522)). Qed.
		2433	Lemma h520: halts tm (kden k520). Proof. exact (halts_evstep _ _ _ h521 (run_ok _ _ _ s521)). Qed.
		2434	Lemma h519: halts tm (kden k519). Proof. exact (halts_evstep _ _ _ h520 (run_ok _ _ _ s520)). Qed.
		2435	Lemma h518: halts tm (kden k518). Proof. exact (halts_evstep _ _ _ h519 (run_ok _ _ _ s519)). Qed.
		2436	Lemma h517: halts tm (kden k517). Proof. exact (halts_evstep _ _ _ h518 (run_ok _ _ _ s518)). Qed.
		2437	Lemma h516: halts tm (kden k516). Proof. exact (halts_evstep _ _ _ h517 (run_ok _ _ _ s517)). Qed.
		2438	Lemma h515: halts tm (kden k515). Proof. exact (halts_evstep _ _ _ h516 (run_ok _ _ _ s516)). Qed.
		2439	Lemma h514: halts tm (kden k514). Proof. exact (halts_evstep _ _ _ h515 (run_ok _ _ _ s515)). Qed.
		2440	Lemma h513: halts tm (kden k513). Proof. exact (halts_evstep _ _ _ h514 (run_ok _ _ _ s514)). Qed.
		2441	Lemma h512: halts tm (kden k512). Proof. exact (halts_evstep _ _ _ h513 (run_ok _ _ _ s513)). Qed.
		2442	Lemma h511: halts tm (kden k511). Proof. exact (halts_evstep _ _ _ h512 (run_ok _ _ _ s512)). Qed.
		2443	Lemma h510: halts tm (kden k510). Proof. exact (halts_evstep _ _ _ h511 (run_ok _ _ _ s511)). Qed.
		2444	Lemma h509: halts tm (kden k509). Proof. exact (halts_evstep _ _ _ h510 (run_ok _ _ _ s510)). Qed.
		2445	Lemma h508: halts tm (kden k508). Proof. exact (halts_evstep _ _ _ h509 (run_ok _ _ _ s509)). Qed.
		2446	Lemma h507: halts tm (kden k507). Proof. exact (halts_evstep _ _ _ h508 (run_ok _ _ _ s508)). Qed.
		2447	Lemma h506: halts tm (kden k506). Proof. exact (halts_evstep _ _ _ h507 (run_ok _ _ _ s507)). Qed.
		2448	Lemma h505: halts tm (kden k505). Proof. exact (halts_evstep _ _ _ h506 (run_ok _ _ _ s506)). Qed.
		2449	Lemma h504: halts tm (kden k504). Proof. exact (halts_evstep _ _ _ h505 (run_ok _ _ _ s505)). Qed.
		2450	Lemma h503: halts tm (kden k503). Proof. exact (halts_evstep _ _ _ h504 (run_ok _ _ _ s504)). Qed.
		2451	Lemma h502: halts tm (kden k502). Proof. exact (halts_evstep _ _ _ h503 (run_ok _ _ _ s503)). Qed.
		2452	Lemma h501: halts tm (kden k501). Proof. exact (halts_evstep _ _ _ h502 (run_ok _ _ _ s502)). Qed.
		2453	Lemma h500: halts tm (kden k500). Proof. exact (halts_evstep _ _ _ h501 (run_ok _ _ _ s501)). Qed.
		2454	Lemma h499: halts tm (kden k499). Proof. exact (halts_evstep _ _ _ h500 (run_ok _ _ _ s500)). Qed.
		2455	Lemma h498: halts tm (kden k498). Proof. exact (halts_evstep _ _ _ h499 (run_ok _ _ _ s499)). Qed.
		2456	Lemma h497: halts tm (kden k497). Proof. exact (halts_evstep _ _ _ h498 (run_ok _ _ _ s498)). Qed.
		2457	Lemma h496: halts tm (kden k496). Proof. exact (halts_evstep _ _ _ h497 (run_ok _ _ _ s497)). Qed.
		2458	Lemma h495: halts tm (kden k495). Proof. exact (halts_evstep _ _ _ h496 (run_ok _ _ _ s496)). Qed.
		2459	Lemma h494: halts tm (kden k494). Proof. exact (halts_evstep _ _ _ h495 (run_ok _ _ _ s495)). Qed.
		2460	Lemma h493: halts tm (kden k493). Proof. exact (halts_evstep _ _ _ h494 (run_ok _ _ _ s494)). Qed.
		2461	Lemma h492: halts tm (kden k492). Proof. exact (halts_evstep _ _ _ h493 (run_ok _ _ _ s493)). Qed.
		2462	Lemma h491: halts tm (kden k491). Proof. exact (halts_evstep _ _ _ h492 (run_ok _ _ _ s492)). Qed.
		2463	Lemma h490: halts tm (kden k490). Proof. exact (halts_evstep _ _ _ h491 (run_ok _ _ _ s491)). Qed.
		2464	Lemma h489: halts tm (kden k489). Proof. exact (halts_evstep _ _ _ h490 (run_ok _ _ _ s490)). Qed.
		2465	Lemma h488: halts tm (kden k488). Proof. exact (halts_evstep _ _ _ h489 (run_ok _ _ _ s489)). Qed.
		2466	Lemma h487: halts tm (kden k487). Proof. exact (halts_evstep _ _ _ h488 (run_ok _ _ _ s488)). Qed.
		2467	Lemma h486: halts tm (kden k486). Proof. exact (halts_evstep _ _ _ h487 (run_ok _ _ _ s487)). Qed.
		2468	Lemma h485: halts tm (kden k485). Proof. exact (halts_evstep _ _ _ h486 (run_ok _ _ _ s486)). Qed.
		2469	Lemma h484: halts tm (kden k484). Proof. exact (halts_evstep _ _ _ h485 (run_ok _ _ _ s485)). Qed.
		2470	Lemma h483: halts tm (kden k483). Proof. exact (halts_evstep _ _ _ h484 (run_ok _ _ _ s484)). Qed.
		2471	Lemma h482: halts tm (kden k482). Proof. exact (halts_evstep _ _ _ h483 (run_ok _ _ _ s483)). Qed.
		2472	Lemma h481: halts tm (kden k481). Proof. exact (halts_evstep _ _ _ h482 (run_ok _ _ _ s482)). Qed.
		2473	Lemma h480: halts tm (kden k480). Proof. exact (halts_evstep _ _ _ h481 (run_ok _ _ _ s481)). Qed.
		2474	Lemma h479: halts tm (kden k479). Proof. exact (halts_evstep _ _ _ h480 (run_ok _ _ _ s480)). Qed.
		2475	Lemma h478: halts tm (kden k478). Proof. exact (halts_evstep _ _ _ h479 (run_ok _ _ _ s479)). Qed.
		2476	Lemma h477: halts tm (kden k477). Proof. exact (halts_evstep _ _ _ h478 (run_ok _ _ _ s478)). Qed.
		2477	Lemma h476: halts tm (kden k476). Proof. exact (halts_evstep _ _ _ h477 (run_ok _ _ _ s477)). Qed.
		2478	Lemma h475: halts tm (kden k475). Proof. exact (halts_evstep _ _ _ h476 (run_ok _ _ _ s476)). Qed.
		2479	Lemma h474: halts tm (kden k474). Proof. exact (halts_evstep _ _ _ h475 (run_ok _ _ _ s475)). Qed.
		2480	Lemma h473: halts tm (kden k473). Proof. exact (halts_evstep _ _ _ h474 (run_ok _ _ _ s474)). Qed.
		2481	Lemma h472: halts tm (kden k472). Proof. exact (halts_evstep _ _ _ h473 (run_ok _ _ _ s473)). Qed.
		2482	Lemma h471: halts tm (kden k471). Proof. exact (halts_evstep _ _ _ h472 (run_ok _ _ _ s472)). Qed.
		2483	Lemma h470: halts tm (kden k470). Proof. exact (halts_evstep _ _ _ h471 (run_ok _ _ _ s471)). Qed.
		2484	Lemma h469: halts tm (kden k469). Proof. exact (halts_evstep _ _ _ h470 (run_ok _ _ _ s470)). Qed.
		2485	Lemma h468: halts tm (kden k468). Proof. exact (halts_evstep _ _ _ h469 (run_ok _ _ _ s469)). Qed.
		2486	Lemma h467: halts tm (kden k467). Proof. exact (halts_evstep _ _ _ h468 (run_ok _ _ _ s468)). Qed.
		2487	Lemma h466: halts tm (kden k466). Proof. exact (halts_evstep _ _ _ h467 (run_ok _ _ _ s467)). Qed.
		2488	Lemma h465: halts tm (kden k465). Proof. exact (halts_evstep _ _ _ h466 (run_ok _ _ _ s466)). Qed.
		2489	Lemma h464: halts tm (kden k464). Proof. exact (halts_evstep _ _ _ h465 (run_ok _ _ _ s465)). Qed.
		2490	Lemma h463: halts tm (kden k463). Proof. exact (halts_evstep _ _ _ h464 (run_ok _ _ _ s464)). Qed.
		2491	Lemma h462: halts tm (kden k462). Proof. exact (halts_evstep _ _ _ h463 (run_ok _ _ _ s463)). Qed.
		2492	Lemma h461: halts tm (kden k461). Proof. exact (halts_evstep _ _ _ h462 (run_ok _ _ _ s462)). Qed.
		2493	Lemma h460: halts tm (kden k460). Proof. exact (halts_evstep _ _ _ h461 (run_ok _ _ _ s461)). Qed.
		2494	Lemma h459: halts tm (kden k459). Proof. exact (halts_evstep _ _ _ h460 (run_ok _ _ _ s460)). Qed.
		2495	Lemma h458: halts tm (kden k458). Proof. exact (halts_evstep _ _ _ h459 (run_ok _ _ _ s459)). Qed.
		2496	Lemma h457: halts tm (kden k457). Proof. exact (halts_evstep _ _ _ h458 (run_ok _ _ _ s458)). Qed.
		2497	Lemma h456: halts tm (kden k456). Proof. exact (halts_evstep _ _ _ h457 (run_ok _ _ _ s457)). Qed.
		2498	Lemma h455: halts tm (kden k455). Proof. exact (halts_evstep _ _ _ h456 (run_ok _ _ _ s456)). Qed.
		2499	Lemma h454: halts tm (kden k454). Proof. exact (halts_evstep _ _ _ h455 (run_ok _ _ _ s455)). Qed.
		2500	Lemma h453: halts tm (kden k453). Proof. exact (halts_evstep _ _ _ h454 (run_ok _ _ _ s454)). Qed.
		2501	Lemma h452: halts tm (kden k452). Proof. exact (halts_evstep _ _ _ h453 (run_ok _ _ _ s453)). Qed.
		2502	Lemma h451: halts tm (kden k451). Proof. exact (halts_evstep _ _ _ h452 (run_ok _ _ _ s452)). Qed.
		2503	Lemma h450: halts tm (kden k450). Proof. exact (halts_evstep _ _ _ h451 (run_ok _ _ _ s451)). Qed.
		2504	Lemma h449: halts tm (kden k449). Proof. exact (halts_evstep _ _ _ h450 (run_ok _ _ _ s450)). Qed.
		2505	Lemma h448: halts tm (kden k448). Proof. exact (halts_evstep _ _ _ h449 (run_ok _ _ _ s449)). Qed.
		2506	Lemma h447: halts tm (kden k447). Proof. exact (halts_evstep _ _ _ h448 (run_ok _ _ _ s448)). Qed.
		2507	Lemma h446: halts tm (kden k446). Proof. exact (halts_evstep _ _ _ h447 (run_ok _ _ _ s447)). Qed.
		2508	Lemma h445: halts tm (kden k445). Proof. exact (halts_evstep _ _ _ h446 (run_ok _ _ _ s446)). Qed.
		2509	Lemma h444: halts tm (kden k444). Proof. exact (halts_evstep _ _ _ h445 (run_ok _ _ _ s445)). Qed.
		2510	Lemma h443: halts tm (kden k443). Proof. exact (halts_evstep _ _ _ h444 (run_ok _ _ _ s444)). Qed.
		2511	Lemma h442: halts tm (kden k442). Proof. exact (halts_evstep _ _ _ h443 (run_ok _ _ _ s443)). Qed.
		2512	Lemma h441: halts tm (kden k441). Proof. exact (halts_evstep _ _ _ h442 (run_ok _ _ _ s442)). Qed.
		2513	Lemma h440: halts tm (kden k440). Proof. exact (halts_evstep _ _ _ h441 (run_ok _ _ _ s441)). Qed.
		2514	Lemma h439: halts tm (kden k439). Proof. exact (halts_evstep _ _ _ h440 (run_ok _ _ _ s440)). Qed.
		2515	Lemma h438: halts tm (kden k438). Proof. exact (halts_evstep _ _ _ h439 (run_ok _ _ _ s439)). Qed.
		2516	Lemma h437: halts tm (kden k437). Proof. exact (halts_evstep _ _ _ h438 (run_ok _ _ _ s438)). Qed.
		2517	Lemma h436: halts tm (kden k436). Proof. exact (halts_evstep _ _ _ h437 (run_ok _ _ _ s437)). Qed.
		2518	Lemma h435: halts tm (kden k435). Proof. exact (halts_evstep _ _ _ h436 (run_ok _ _ _ s436)). Qed.
		2519	Lemma h434: halts tm (kden k434). Proof. exact (halts_evstep _ _ _ h435 (run_ok _ _ _ s435)). Qed.
		2520	Lemma h433: halts tm (kden k433). Proof. exact (halts_evstep _ _ _ h434 (run_ok _ _ _ s434)). Qed.
		2521	Lemma h432: halts tm (kden k432). Proof. exact (halts_evstep _ _ _ h433 (run_ok _ _ _ s433)). Qed.
		2522	Lemma h431: halts tm (kden k431). Proof. exact (halts_evstep _ _ _ h432 (run_ok _ _ _ s432)). Qed.
		2523	Lemma h430: halts tm (kden k430). Proof. exact (halts_evstep _ _ _ h431 (run_ok _ _ _ s431)). Qed.
		2524	Lemma h429: halts tm (kden k429). Proof. exact (halts_evstep _ _ _ h430 (run_ok _ _ _ s430)). Qed.
		2525	Lemma h428: halts tm (kden k428). Proof. exact (halts_evstep _ _ _ h429 (run_ok _ _ _ s429)). Qed.
		2526	Lemma h427: halts tm (kden k427). Proof. exact (halts_evstep _ _ _ h428 (run_ok _ _ _ s428)). Qed.
		2527	Lemma h426: halts tm (kden k426). Proof. exact (halts_evstep _ _ _ h427 (run_ok _ _ _ s427)). Qed.
		2528	Lemma h425: halts tm (kden k425). Proof. exact (halts_evstep _ _ _ h426 (run_ok _ _ _ s426)). Qed.
		2529	Lemma h424: halts tm (kden k424). Proof. exact (halts_evstep _ _ _ h425 (run_ok _ _ _ s425)). Qed.
		2530	Lemma h423: halts tm (kden k423). Proof. exact (halts_evstep _ _ _ h424 (run_ok _ _ _ s424)). Qed.
		2531	Lemma h422: halts tm (kden k422). Proof. exact (halts_evstep _ _ _ h423 (run_ok _ _ _ s423)). Qed.
		2532	Lemma h421: halts tm (kden k421). Proof. exact (halts_evstep _ _ _ h422 (run_ok _ _ _ s422)). Qed.
		2533	Lemma h420: halts tm (kden k420). Proof. exact (halts_evstep _ _ _ h421 (run_ok _ _ _ s421)). Qed.
		2534	Lemma h419: halts tm (kden k419). Proof. exact (halts_evstep _ _ _ h420 (run_ok _ _ _ s420)). Qed.
		2535	Lemma h418: halts tm (kden k418). Proof. exact (halts_evstep _ _ _ h419 (run_ok _ _ _ s419)). Qed.
		2536	Lemma h417: halts tm (kden k417). Proof. exact (halts_evstep _ _ _ h418 (run_ok _ _ _ s418)). Qed.
		2537	Lemma h416: halts tm (kden k416). Proof. exact (halts_evstep _ _ _ h417 (run_ok _ _ _ s417)). Qed.
		2538	Lemma h415: halts tm (kden k415). Proof. exact (halts_evstep _ _ _ h416 (run_ok _ _ _ s416)). Qed.
		2539	Lemma h414: halts tm (kden k414). Proof. exact (halts_evstep _ _ _ h415 (run_ok _ _ _ s415)). Qed.
		2540	Lemma h413: halts tm (kden k413). Proof. exact (halts_evstep _ _ _ h414 (run_ok _ _ _ s414)). Qed.
		2541	Lemma h412: halts tm (kden k412). Proof. exact (halts_evstep _ _ _ h413 (run_ok _ _ _ s413)). Qed.
		2542	Lemma h411: halts tm (kden k411). Proof. exact (halts_evstep _ _ _ h412 (run_ok _ _ _ s412)). Qed.
		2543	Lemma h410: halts tm (kden k410). Proof. exact (halts_evstep _ _ _ h411 (run_ok _ _ _ s411)). Qed.
		2544	Lemma h409: halts tm (kden k409). Proof. exact (halts_evstep _ _ _ h410 (run_ok _ _ _ s410)). Qed.
		2545	Lemma h408: halts tm (kden k408). Proof. exact (halts_evstep _ _ _ h409 (run_ok _ _ _ s409)). Qed.
		2546	Lemma h407: halts tm (kden k407). Proof. exact (halts_evstep _ _ _ h408 (run_ok _ _ _ s408)). Qed.
		2547	Lemma h406: halts tm (kden k406). Proof. exact (halts_evstep _ _ _ h407 (run_ok _ _ _ s407)). Qed.
		2548	Lemma h405: halts tm (kden k405). Proof. exact (halts_evstep _ _ _ h406 (run_ok _ _ _ s406)). Qed.
		2549	Lemma h404: halts tm (kden k404). Proof. exact (halts_evstep _ _ _ h405 (run_ok _ _ _ s405)). Qed.
		2550	Lemma h403: halts tm (kden k403). Proof. exact (halts_evstep _ _ _ h404 (run_ok _ _ _ s404)). Qed.
		2551	Lemma h402: halts tm (kden k402). Proof. exact (halts_evstep _ _ _ h403 (run_ok _ _ _ s403)). Qed.
		2552	Lemma h401: halts tm (kden k401). Proof. exact (halts_evstep _ _ _ h402 (run_ok _ _ _ s402)). Qed.
		2553	Lemma h400: halts tm (kden k400). Proof. exact (halts_evstep _ _ _ h401 (run_ok _ _ _ s401)). Qed.
		2554	Lemma h399: halts tm (kden k399). Proof. exact (halts_evstep _ _ _ h400 (run_ok _ _ _ s400)). Qed.
		2555	Lemma h398: halts tm (kden k398). Proof. exact (halts_evstep _ _ _ h399 (run_ok _ _ _ s399)). Qed.
		2556	Lemma h397: halts tm (kden k397). Proof. exact (halts_evstep _ _ _ h398 (run_ok _ _ _ s398)). Qed.
		2557	Lemma h396: halts tm (kden k396). Proof. exact (halts_evstep _ _ _ h397 (run_ok _ _ _ s397)). Qed.
		2558	Lemma h395: halts tm (kden k395). Proof. exact (halts_evstep _ _ _ h396 (run_ok _ _ _ s396)). Qed.
		2559	Lemma h394: halts tm (kden k394). Proof. exact (halts_evstep _ _ _ h395 (run_ok _ _ _ s395)). Qed.
		2560	Lemma h393: halts tm (kden k393). Proof. exact (halts_evstep _ _ _ h394 (run_ok _ _ _ s394)). Qed.
		2561	Lemma h392: halts tm (kden k392). Proof. exact (halts_evstep _ _ _ h393 (run_ok _ _ _ s393)). Qed.
		2562	Lemma h391: halts tm (kden k391). Proof. exact (halts_evstep _ _ _ h392 (run_ok _ _ _ s392)). Qed.
		2563	Lemma h390: halts tm (kden k390). Proof. exact (halts_evstep _ _ _ h391 (run_ok _ _ _ s391)). Qed.
		2564	Lemma h389: halts tm (kden k389). Proof. exact (halts_evstep _ _ _ h390 (run_ok _ _ _ s390)). Qed.
		2565	Lemma h388: halts tm (kden k388). Proof. exact (halts_evstep _ _ _ h389 (run_ok _ _ _ s389)). Qed.
		2566	Lemma h387: halts tm (kden k387). Proof. exact (halts_evstep _ _ _ h388 (run_ok _ _ _ s388)). Qed.
		2567	Lemma h386: halts tm (kden k386). Proof. exact (halts_evstep _ _ _ h387 (run_ok _ _ _ s387)). Qed.
		2568	Lemma h385: halts tm (kden k385). Proof. exact (halts_evstep _ _ _ h386 (run_ok _ _ _ s386)). Qed.
		2569	Lemma h384: halts tm (kden k384). Proof. exact (halts_evstep _ _ _ h385 (run_ok _ _ _ s385)). Qed.
		2570	Lemma h383: halts tm (kden k383). Proof. exact (halts_evstep _ _ _ h384 (run_ok _ _ _ s384)). Qed.
		2571	Lemma h382: halts tm (kden k382). Proof. exact (halts_evstep _ _ _ h383 (run_ok _ _ _ s383)). Qed.
		2572	Lemma h381: halts tm (kden k381). Proof. exact (halts_evstep _ _ _ h382 (run_ok _ _ _ s382)). Qed.
		2573	Lemma h380: halts tm (kden k380). Proof. exact (halts_evstep _ _ _ h381 (run_ok _ _ _ s381)). Qed.
		2574	Lemma h379: halts tm (kden k379). Proof. exact (halts_evstep _ _ _ h380 (run_ok _ _ _ s380)). Qed.
		2575	Lemma h378: halts tm (kden k378). Proof. exact (halts_evstep _ _ _ h379 (run_ok _ _ _ s379)). Qed.
		2576	Lemma h377: halts tm (kden k377). Proof. exact (halts_evstep _ _ _ h378 (run_ok _ _ _ s378)). Qed.
		2577	Lemma h376: halts tm (kden k376). Proof. exact (halts_evstep _ _ _ h377 (run_ok _ _ _ s377)). Qed.
		2578	Lemma h375: halts tm (kden k375). Proof. exact (halts_evstep _ _ _ h376 (run_ok _ _ _ s376)). Qed.
		2579	Lemma h374: halts tm (kden k374). Proof. exact (halts_evstep _ _ _ h375 (run_ok _ _ _ s375)). Qed.
		2580	Lemma h373: halts tm (kden k373). Proof. exact (halts_evstep _ _ _ h374 (run_ok _ _ _ s374)). Qed.
		2581	Lemma h372: halts tm (kden k372). Proof. exact (halts_evstep _ _ _ h373 (run_ok _ _ _ s373)). Qed.
		2582	Lemma h371: halts tm (kden k371). Proof. exact (halts_evstep _ _ _ h372 (run_ok _ _ _ s372)). Qed.
		2583	Lemma h370: halts tm (kden k370). Proof. exact (halts_evstep _ _ _ h371 (run_ok _ _ _ s371)). Qed.
		2584	Lemma h369: halts tm (kden k369). Proof. exact (halts_evstep _ _ _ h370 (run_ok _ _ _ s370)). Qed.
		2585	Lemma h368: halts tm (kden k368). Proof. exact (halts_evstep _ _ _ h369 (run_ok _ _ _ s369)). Qed.
		2586	Lemma h367: halts tm (kden k367). Proof. exact (halts_evstep _ _ _ h368 (run_ok _ _ _ s368)). Qed.
		2587	Lemma h366: halts tm (kden k366). Proof. exact (halts_evstep _ _ _ h367 (run_ok _ _ _ s367)). Qed.
		2588	Lemma h365: halts tm (kden k365). Proof. exact (halts_evstep _ _ _ h366 (run_ok _ _ _ s366)). Qed.
		2589	Lemma h364: halts tm (kden k364). Proof. exact (halts_evstep _ _ _ h365 (run_ok _ _ _ s365)). Qed.
		2590	Lemma h363: halts tm (kden k363). Proof. exact (halts_evstep _ _ _ h364 (run_ok _ _ _ s364)). Qed.
		2591	Lemma h362: halts tm (kden k362). Proof. exact (halts_evstep _ _ _ h363 (run_ok _ _ _ s363)). Qed.
		2592	Lemma h361: halts tm (kden k361). Proof. exact (halts_evstep _ _ _ h362 (run_ok _ _ _ s362)). Qed.
		2593	Lemma h360: halts tm (kden k360). Proof. exact (halts_evstep _ _ _ h361 (run_ok _ _ _ s361)). Qed.
		2594	Lemma h359: halts tm (kden k359). Proof. exact (halts_evstep _ _ _ h360 (run_ok _ _ _ s360)). Qed.
		2595	Lemma h358: halts tm (kden k358). Proof. exact (halts_evstep _ _ _ h359 (run_ok _ _ _ s359)). Qed.
		2596	Lemma h357: halts tm (kden k357). Proof. exact (halts_evstep _ _ _ h358 (run_ok _ _ _ s358)). Qed.
		2597	Lemma h356: halts tm (kden k356). Proof. exact (halts_evstep _ _ _ h357 (run_ok _ _ _ s357)). Qed.
		2598	Lemma h355: halts tm (kden k355). Proof. exact (halts_evstep _ _ _ h356 (run_ok _ _ _ s356)). Qed.
		2599	Lemma h354: halts tm (kden k354). Proof. exact (halts_evstep _ _ _ h355 (run_ok _ _ _ s355)). Qed.
		2600	Lemma h353: halts tm (kden k353). Proof. exact (halts_evstep _ _ _ h354 (run_ok _ _ _ s354)). Qed.
		2601	Lemma h352: halts tm (kden k352). Proof. exact (halts_evstep _ _ _ h353 (run_ok _ _ _ s353)). Qed.
		2602	Lemma h351: halts tm (kden k351). Proof. exact (halts_evstep _ _ _ h352 (run_ok _ _ _ s352)). Qed.
		2603	Lemma h350: halts tm (kden k350). Proof. exact (halts_evstep _ _ _ h351 (run_ok _ _ _ s351)). Qed.
		2604	Lemma h349: halts tm (kden k349). Proof. exact (halts_evstep _ _ _ h350 (run_ok _ _ _ s350)). Qed.
		2605	Lemma h348: halts tm (kden k348). Proof. exact (halts_evstep _ _ _ h349 (run_ok _ _ _ s349)). Qed.
		2606	Lemma h347: halts tm (kden k347). Proof. exact (halts_evstep _ _ _ h348 (run_ok _ _ _ s348)). Qed.
		2607	Lemma h346: halts tm (kden k346). Proof. exact (halts_evstep _ _ _ h347 (run_ok _ _ _ s347)). Qed.
		2608	Lemma h345: halts tm (kden k345). Proof. exact (halts_evstep _ _ _ h346 (run_ok _ _ _ s346)). Qed.
		2609	Lemma h344: halts tm (kden k344). Proof. exact (halts_evstep _ _ _ h345 (run_ok _ _ _ s345)). Qed.
		2610	Lemma h343: halts tm (kden k343). Proof. exact (halts_evstep _ _ _ h344 (run_ok _ _ _ s344)). Qed.
		2611	Lemma h342: halts tm (kden k342). Proof. exact (halts_evstep _ _ _ h343 (run_ok _ _ _ s343)). Qed.
		2612	Lemma h341: halts tm (kden k341). Proof. exact (halts_evstep _ _ _ h342 (run_ok _ _ _ s342)). Qed.
		2613	Lemma h340: halts tm (kden k340). Proof. exact (halts_evstep _ _ _ h341 (run_ok _ _ _ s341)). Qed.
		2614	Lemma h339: halts tm (kden k339). Proof. exact (halts_evstep _ _ _ h340 (run_ok _ _ _ s340)). Qed.
		2615	Lemma h338: halts tm (kden k338). Proof. exact (halts_evstep _ _ _ h339 (run_ok _ _ _ s339)). Qed.
		2616	Lemma h337: halts tm (kden k337). Proof. exact (halts_evstep _ _ _ h338 (run_ok _ _ _ s338)). Qed.
		2617	Lemma h336: halts tm (kden k336). Proof. exact (halts_evstep _ _ _ h337 (run_ok _ _ _ s337)). Qed.
		2618	Lemma h335: halts tm (kden k335). Proof. exact (halts_evstep _ _ _ h336 (run_ok _ _ _ s336)). Qed.
		2619	Lemma h334: halts tm (kden k334). Proof. exact (halts_evstep _ _ _ h335 (run_ok _ _ _ s335)). Qed.
		2620	Lemma h333: halts tm (kden k333). Proof. exact (halts_evstep _ _ _ h334 (run_ok _ _ _ s334)). Qed.
		2621	Lemma h332: halts tm (kden k332). Proof. exact (halts_evstep _ _ _ h333 (run_ok _ _ _ s333)). Qed.
		2622	Lemma h331: halts tm (kden k331). Proof. exact (halts_evstep _ _ _ h332 (run_ok _ _ _ s332)). Qed.
		2623	Lemma h330: halts tm (kden k330). Proof. exact (halts_evstep _ _ _ h331 (run_ok _ _ _ s331)). Qed.
		2624	Lemma h329: halts tm (kden k329). Proof. exact (halts_evstep _ _ _ h330 (run_ok _ _ _ s330)). Qed.
		2625	Lemma h328: halts tm (kden k328). Proof. exact (halts_evstep _ _ _ h329 (run_ok _ _ _ s329)). Qed.
		2626	Lemma h327: halts tm (kden k327). Proof. exact (halts_evstep _ _ _ h328 (run_ok _ _ _ s328)). Qed.
		2627	Lemma h326: halts tm (kden k326). Proof. exact (halts_evstep _ _ _ h327 (run_ok _ _ _ s327)). Qed.
		2628	Lemma h325: halts tm (kden k325). Proof. exact (halts_evstep _ _ _ h326 (run_ok _ _ _ s326)). Qed.
		2629	Lemma h324: halts tm (kden k324). Proof. exact (halts_evstep _ _ _ h325 (run_ok _ _ _ s325)). Qed.
		2630	Lemma h323: halts tm (kden k323). Proof. exact (halts_evstep _ _ _ h324 (run_ok _ _ _ s324)). Qed.
		2631	Lemma h322: halts tm (kden k322). Proof. exact (halts_evstep _ _ _ h323 (run_ok _ _ _ s323)). Qed.
		2632	Lemma h321: halts tm (kden k321). Proof. exact (halts_evstep _ _ _ h322 (run_ok _ _ _ s322)). Qed.
		2633	Lemma h320: halts tm (kden k320). Proof. exact (halts_evstep _ _ _ h321 (run_ok _ _ _ s321)). Qed.
		2634	Lemma h319: halts tm (kden k319). Proof. exact (halts_evstep _ _ _ h320 (run_ok _ _ _ s320)). Qed.
		2635	Lemma h318: halts tm (kden k318). Proof. exact (halts_evstep _ _ _ h319 (run_ok _ _ _ s319)). Qed.
		2636	Lemma h317: halts tm (kden k317). Proof. exact (halts_evstep _ _ _ h318 (run_ok _ _ _ s318)). Qed.
		2637	Lemma h316: halts tm (kden k316). Proof. exact (halts_evstep _ _ _ h317 (run_ok _ _ _ s317)). Qed.
		2638	Lemma h315: halts tm (kden k315). Proof. exact (halts_evstep _ _ _ h316 (run_ok _ _ _ s316)). Qed.
		2639	Lemma h314: halts tm (kden k314). Proof. exact (halts_evstep _ _ _ h315 (run_ok _ _ _ s315)). Qed.
		2640	Lemma h313: halts tm (kden k313). Proof. exact (halts_evstep _ _ _ h314 (run_ok _ _ _ s314)). Qed.
		2641	Lemma h312: halts tm (kden k312). Proof. exact (halts_evstep _ _ _ h313 (run_ok _ _ _ s313)). Qed.
		2642	Lemma h311: halts tm (kden k311). Proof. exact (halts_evstep _ _ _ h312 (run_ok _ _ _ s312)). Qed.
		2643	Lemma h310: halts tm (kden k310). Proof. exact (halts_evstep _ _ _ h311 (run_ok _ _ _ s311)). Qed.
		2644	Lemma h309: halts tm (kden k309). Proof. exact (halts_evstep _ _ _ h310 (run_ok _ _ _ s310)). Qed.
		2645	Lemma h308: halts tm (kden k308). Proof. exact (halts_evstep _ _ _ h309 (run_ok _ _ _ s309)). Qed.
		2646	Lemma h307: halts tm (kden k307). Proof. exact (halts_evstep _ _ _ h308 (run_ok _ _ _ s308)). Qed.
		2647	Lemma h306: halts tm (kden k306). Proof. exact (halts_evstep _ _ _ h307 (run_ok _ _ _ s307)). Qed.
		2648	Lemma h305: halts tm (kden k305). Proof. exact (halts_evstep _ _ _ h306 (run_ok _ _ _ s306)). Qed.
		2649	Lemma h304: halts tm (kden k304). Proof. exact (halts_evstep _ _ _ h305 (run_ok _ _ _ s305)). Qed.
		2650	Lemma h303: halts tm (kden k303). Proof. exact (halts_evstep _ _ _ h304 (run_ok _ _ _ s304)). Qed.
		2651	Lemma h302: halts tm (kden k302). Proof. exact (halts_evstep _ _ _ h303 (run_ok _ _ _ s303)). Qed.
		2652	Lemma h301: halts tm (kden k301). Proof. exact (halts_evstep _ _ _ h302 (run_ok _ _ _ s302)). Qed.
		2653	Lemma h300: halts tm (kden k300). Proof. exact (halts_evstep _ _ _ h301 (run_ok _ _ _ s301)). Qed.
		2654	Lemma h299: halts tm (kden k299). Proof. exact (halts_evstep _ _ _ h300 (run_ok _ _ _ s300)). Qed.
		2655	Lemma h298: halts tm (kden k298). Proof. exact (halts_evstep _ _ _ h299 (run_ok _ _ _ s299)). Qed.
		2656	Lemma h297: halts tm (kden k297). Proof. exact (halts_evstep _ _ _ h298 (run_ok _ _ _ s298)). Qed.
		2657	Lemma h296: halts tm (kden k296). Proof. exact (halts_evstep _ _ _ h297 (run_ok _ _ _ s297)). Qed.
		2658	Lemma h295: halts tm (kden k295). Proof. exact (halts_evstep _ _ _ h296 (run_ok _ _ _ s296)). Qed.
		2659	Lemma h294: halts tm (kden k294). Proof. exact (halts_evstep _ _ _ h295 (run_ok _ _ _ s295)). Qed.
		2660	Lemma h293: halts tm (kden k293). Proof. exact (halts_evstep _ _ _ h294 (run_ok _ _ _ s294)). Qed.
		2661	Lemma h292: halts tm (kden k292). Proof. exact (halts_evstep _ _ _ h293 (run_ok _ _ _ s293)). Qed.
		2662	Lemma h291: halts tm (kden k291). Proof. exact (halts_evstep _ _ _ h292 (run_ok _ _ _ s292)). Qed.
		2663	Lemma h290: halts tm (kden k290). Proof. exact (halts_evstep _ _ _ h291 (run_ok _ _ _ s291)). Qed.
		2664	Lemma h289: halts tm (kden k289). Proof. exact (halts_evstep _ _ _ h290 (run_ok _ _ _ s290)). Qed.
		2665	Lemma h288: halts tm (kden k288). Proof. exact (halts_evstep _ _ _ h289 (run_ok _ _ _ s289)). Qed.
		2666	Lemma h287: halts tm (kden k287). Proof. exact (halts_evstep _ _ _ h288 (run_ok _ _ _ s288)). Qed.
		2667	Lemma h286: halts tm (kden k286). Proof. exact (halts_evstep _ _ _ h287 (run_ok _ _ _ s287)). Qed.
		2668	Lemma h285: halts tm (kden k285). Proof. exact (halts_evstep _ _ _ h286 (run_ok _ _ _ s286)). Qed.
		2669	Lemma h284: halts tm (kden k284). Proof. exact (halts_evstep _ _ _ h285 (run_ok _ _ _ s285)). Qed.
		2670	Lemma h283: halts tm (kden k283). Proof. exact (halts_evstep _ _ _ h284 (run_ok _ _ _ s284)). Qed.
		2671	Lemma h282: halts tm (kden k282). Proof. exact (halts_evstep _ _ _ h283 (run_ok _ _ _ s283)). Qed.
		2672	Lemma h281: halts tm (kden k281). Proof. exact (halts_evstep _ _ _ h282 (run_ok _ _ _ s282)). Qed.
		2673	Lemma h280: halts tm (kden k280). Proof. exact (halts_evstep _ _ _ h281 (run_ok _ _ _ s281)). Qed.
		2674	Lemma h279: halts tm (kden k279). Proof. exact (halts_evstep _ _ _ h280 (run_ok _ _ _ s280)). Qed.
		2675	Lemma h278: halts tm (kden k278). Proof. exact (halts_evstep _ _ _ h279 (run_ok _ _ _ s279)). Qed.
		2676	Lemma h277: halts tm (kden k277). Proof. exact (halts_evstep _ _ _ h278 (run_ok _ _ _ s278)). Qed.
		2677	Lemma h276: halts tm (kden k276). Proof. exact (halts_evstep _ _ _ h277 (run_ok _ _ _ s277)). Qed.
		2678	Lemma h275: halts tm (kden k275). Proof. exact (halts_evstep _ _ _ h276 (run_ok _ _ _ s276)). Qed.
		2679	Lemma h274: halts tm (kden k274). Proof. exact (halts_evstep _ _ _ h275 (run_ok _ _ _ s275)). Qed.
		2680	Lemma h273: halts tm (kden k273). Proof. exact (halts_evstep _ _ _ h274 (run_ok _ _ _ s274)). Qed.
		2681	Lemma h272: halts tm (kden k272). Proof. exact (halts_evstep _ _ _ h273 (run_ok _ _ _ s273)). Qed.
		2682	Lemma h271: halts tm (kden k271). Proof. exact (halts_evstep _ _ _ h272 (run_ok _ _ _ s272)). Qed.
		2683	Lemma h270: halts tm (kden k270). Proof. exact (halts_evstep _ _ _ h271 (run_ok _ _ _ s271)). Qed.
		2684	Lemma h269: halts tm (kden k269). Proof. exact (halts_evstep _ _ _ h270 (run_ok _ _ _ s270)). Qed.
		2685	Lemma h268: halts tm (kden k268). Proof. exact (halts_evstep _ _ _ h269 (run_ok _ _ _ s269)). Qed.
		2686	Lemma h267: halts tm (kden k267). Proof. exact (halts_evstep _ _ _ h268 (run_ok _ _ _ s268)). Qed.
		2687	Lemma h266: halts tm (kden k266). Proof. exact (halts_evstep _ _ _ h267 (run_ok _ _ _ s267)). Qed.
		2688	Lemma h265: halts tm (kden k265). Proof. exact (halts_evstep _ _ _ h266 (run_ok _ _ _ s266)). Qed.
		2689	Lemma h264: halts tm (kden k264). Proof. exact (halts_evstep _ _ _ h265 (run_ok _ _ _ s265)). Qed.
		2690	Lemma h263: halts tm (kden k263). Proof. exact (halts_evstep _ _ _ h264 (run_ok _ _ _ s264)). Qed.
		2691	Lemma h262: halts tm (kden k262). Proof. exact (halts_evstep _ _ _ h263 (run_ok _ _ _ s263)). Qed.
		2692	Lemma h261: halts tm (kden k261). Proof. exact (halts_evstep _ _ _ h262 (run_ok _ _ _ s262)). Qed.
		2693	Lemma h260: halts tm (kden k260). Proof. exact (halts_evstep _ _ _ h261 (run_ok _ _ _ s261)). Qed.
		2694	Lemma h259: halts tm (kden k259). Proof. exact (halts_evstep _ _ _ h260 (run_ok _ _ _ s260)). Qed.
		2695	Lemma h258: halts tm (kden k258). Proof. exact (halts_evstep _ _ _ h259 (run_ok _ _ _ s259)). Qed.
		2696	Lemma h257: halts tm (kden k257). Proof. exact (halts_evstep _ _ _ h258 (run_ok _ _ _ s258)). Qed.
		2697	Lemma h256: halts tm (kden k256). Proof. exact (halts_evstep _ _ _ h257 (run_ok _ _ _ s257)). Qed.
		2698	Lemma h255: halts tm (kden k255). Proof. exact (halts_evstep _ _ _ h256 (run_ok _ _ _ s256)). Qed.
		2699	Lemma h254: halts tm (kden k254). Proof. exact (halts_evstep _ _ _ h255 (run_ok _ _ _ s255)). Qed.
		2700	Lemma h253: halts tm (kden k253). Proof. exact (halts_evstep _ _ _ h254 (run_ok _ _ _ s254)). Qed.
		2701	Lemma h252: halts tm (kden k252). Proof. exact (halts_evstep _ _ _ h253 (run_ok _ _ _ s253)). Qed.
		2702	Lemma h251: halts tm (kden k251). Proof. exact (halts_evstep _ _ _ h252 (run_ok _ _ _ s252)). Qed.
		2703	Lemma h250: halts tm (kden k250). Proof. exact (halts_evstep _ _ _ h251 (run_ok _ _ _ s251)). Qed.
		2704	Lemma h249: halts tm (kden k249). Proof. exact (halts_evstep _ _ _ h250 (run_ok _ _ _ s250)). Qed.
		2705	Lemma h248: halts tm (kden k248). Proof. exact (halts_evstep _ _ _ h249 (run_ok _ _ _ s249)). Qed.
		2706	Lemma h247: halts tm (kden k247). Proof. exact (halts_evstep _ _ _ h248 (run_ok _ _ _ s248)). Qed.
		2707	Lemma h246: halts tm (kden k246). Proof. exact (halts_evstep _ _ _ h247 (run_ok _ _ _ s247)). Qed.
		2708	Lemma h245: halts tm (kden k245). Proof. exact (halts_evstep _ _ _ h246 (run_ok _ _ _ s246)). Qed.
		2709	Lemma h244: halts tm (kden k244). Proof. exact (halts_evstep _ _ _ h245 (run_ok _ _ _ s245)). Qed.
		2710	Lemma h243: halts tm (kden k243). Proof. exact (halts_evstep _ _ _ h244 (run_ok _ _ _ s244)). Qed.
		2711	Lemma h242: halts tm (kden k242). Proof. exact (halts_evstep _ _ _ h243 (run_ok _ _ _ s243)). Qed.
		2712	Lemma h241: halts tm (kden k241). Proof. exact (halts_evstep _ _ _ h242 (run_ok _ _ _ s242)). Qed.
		2713	Lemma h240: halts tm (kden k240). Proof. exact (halts_evstep _ _ _ h241 (run_ok _ _ _ s241)). Qed.
		2714	Lemma h239: halts tm (kden k239). Proof. exact (halts_evstep _ _ _ h240 (run_ok _ _ _ s240)). Qed.
		2715	Lemma h238: halts tm (kden k238). Proof. exact (halts_evstep _ _ _ h239 (run_ok _ _ _ s239)). Qed.
		2716	Lemma h237: halts tm (kden k237). Proof. exact (halts_evstep _ _ _ h238 (run_ok _ _ _ s238)). Qed.
		2717	Lemma h236: halts tm (kden k236). Proof. exact (halts_evstep _ _ _ h237 (run_ok _ _ _ s237)). Qed.
		2718	Lemma h235: halts tm (kden k235). Proof. exact (halts_evstep _ _ _ h236 (run_ok _ _ _ s236)). Qed.
		2719	Lemma h234: halts tm (kden k234). Proof. exact (halts_evstep _ _ _ h235 (run_ok _ _ _ s235)). Qed.
		2720	Lemma h233: halts tm (kden k233). Proof. exact (halts_evstep _ _ _ h234 (run_ok _ _ _ s234)). Qed.
		2721	Lemma h232: halts tm (kden k232). Proof. exact (halts_evstep _ _ _ h233 (run_ok _ _ _ s233)). Qed.
		2722	Lemma h231: halts tm (kden k231). Proof. exact (halts_evstep _ _ _ h232 (run_ok _ _ _ s232)). Qed.
		2723	Lemma h230: halts tm (kden k230). Proof. exact (halts_evstep _ _ _ h231 (run_ok _ _ _ s231)). Qed.
		2724	Lemma h229: halts tm (kden k229). Proof. exact (halts_evstep _ _ _ h230 (run_ok _ _ _ s230)). Qed.
		2725	Lemma h228: halts tm (kden k228). Proof. exact (halts_evstep _ _ _ h229 (run_ok _ _ _ s229)). Qed.
		2726	Lemma h227: halts tm (kden k227). Proof. exact (halts_evstep _ _ _ h228 (run_ok _ _ _ s228)). Qed.
		2727	Lemma h226: halts tm (kden k226). Proof. exact (halts_evstep _ _ _ h227 (run_ok _ _ _ s227)). Qed.
		2728	Lemma h225: halts tm (kden k225). Proof. exact (halts_evstep _ _ _ h226 (run_ok _ _ _ s226)). Qed.
		2729	Lemma h224: halts tm (kden k224). Proof. exact (halts_evstep _ _ _ h225 (run_ok _ _ _ s225)). Qed.
		2730	Lemma h223: halts tm (kden k223). Proof. exact (halts_evstep _ _ _ h224 (run_ok _ _ _ s224)). Qed.
		2731	Lemma h222: halts tm (kden k222). Proof. exact (halts_evstep _ _ _ h223 (run_ok _ _ _ s223)). Qed.
		2732	Lemma h221: halts tm (kden k221). Proof. exact (halts_evstep _ _ _ h222 (run_ok _ _ _ s222)). Qed.
		2733	Lemma h220: halts tm (kden k220). Proof. exact (halts_evstep _ _ _ h221 (run_ok _ _ _ s221)). Qed.
		2734	Lemma h219: halts tm (kden k219). Proof. exact (halts_evstep _ _ _ h220 (run_ok _ _ _ s220)). Qed.
		2735	Lemma h218: halts tm (kden k218). Proof. exact (halts_evstep _ _ _ h219 (run_ok _ _ _ s219)). Qed.
		2736	Lemma h217: halts tm (kden k217). Proof. exact (halts_evstep _ _ _ h218 (run_ok _ _ _ s218)). Qed.
		2737	Lemma h216: halts tm (kden k216). Proof. exact (halts_evstep _ _ _ h217 (run_ok _ _ _ s217)). Qed.
		2738	Lemma h215: halts tm (kden k215). Proof. exact (halts_evstep _ _ _ h216 (run_ok _ _ _ s216)). Qed.
		2739	Lemma h214: halts tm (kden k214). Proof. exact (halts_evstep _ _ _ h215 (run_ok _ _ _ s215)). Qed.
		2740	Lemma h213: halts tm (kden k213). Proof. exact (halts_evstep _ _ _ h214 (run_ok _ _ _ s214)). Qed.
		2741	Lemma h212: halts tm (kden k212). Proof. exact (halts_evstep _ _ _ h213 (run_ok _ _ _ s213)). Qed.
		2742	Lemma h211: halts tm (kden k211). Proof. exact (halts_evstep _ _ _ h212 (run_ok _ _ _ s212)). Qed.
		2743	Lemma h210: halts tm (kden k210). Proof. exact (halts_evstep _ _ _ h211 (run_ok _ _ _ s211)). Qed.
		2744	Lemma h209: halts tm (kden k209). Proof. exact (halts_evstep _ _ _ h210 (run_ok _ _ _ s210)). Qed.
		2745	Lemma h208: halts tm (kden k208). Proof. exact (halts_evstep _ _ _ h209 (run_ok _ _ _ s209)). Qed.
		2746	Lemma h207: halts tm (kden k207). Proof. exact (halts_evstep _ _ _ h208 (run_ok _ _ _ s208)). Qed.
		2747	Lemma h206: halts tm (kden k206). Proof. exact (halts_evstep _ _ _ h207 (run_ok _ _ _ s207)). Qed.
		2748	Lemma h205: halts tm (kden k205). Proof. exact (halts_evstep _ _ _ h206 (run_ok _ _ _ s206)). Qed.
		2749	Lemma h204: halts tm (kden k204). Proof. exact (halts_evstep _ _ _ h205 (run_ok _ _ _ s205)). Qed.
		2750	Lemma h203: halts tm (kden k203). Proof. exact (halts_evstep _ _ _ h204 (run_ok _ _ _ s204)). Qed.
		2751	Lemma h202: halts tm (kden k202). Proof. exact (halts_evstep _ _ _ h203 (run_ok _ _ _ s203)). Qed.
		2752	Lemma h201: halts tm (kden k201). Proof. exact (halts_evstep _ _ _ h202 (run_ok _ _ _ s202)). Qed.
		2753	Lemma h200: halts tm (kden k200). Proof. exact (halts_evstep _ _ _ h201 (run_ok _ _ _ s201)). Qed.
		2754	Lemma h199: halts tm (kden k199). Proof. exact (halts_evstep _ _ _ h200 (run_ok _ _ _ s200)). Qed.
		2755	Lemma h198: halts tm (kden k198). Proof. exact (halts_evstep _ _ _ h199 (run_ok _ _ _ s199)). Qed.
		2756	Lemma h197: halts tm (kden k197). Proof. exact (halts_evstep _ _ _ h198 (run_ok _ _ _ s198)). Qed.
		2757	Lemma h196: halts tm (kden k196). Proof. exact (halts_evstep _ _ _ h197 (run_ok _ _ _ s197)). Qed.
		2758	Lemma h195: halts tm (kden k195). Proof. exact (halts_evstep _ _ _ h196 (run_ok _ _ _ s196)). Qed.
		2759	Lemma h194: halts tm (kden k194). Proof. exact (halts_evstep _ _ _ h195 (run_ok _ _ _ s195)). Qed.
		2760	Lemma h193: halts tm (kden k193). Proof. exact (halts_evstep _ _ _ h194 (run_ok _ _ _ s194)). Qed.
		2761	Lemma h192: halts tm (kden k192). Proof. exact (halts_evstep _ _ _ h193 (run_ok _ _ _ s193)). Qed.
		2762	Lemma h191: halts tm (kden k191). Proof. exact (halts_evstep _ _ _ h192 (run_ok _ _ _ s192)). Qed.
		2763	Lemma h190: halts tm (kden k190). Proof. exact (halts_evstep _ _ _ h191 (run_ok _ _ _ s191)). Qed.
		2764	Lemma h189: halts tm (kden k189). Proof. exact (halts_evstep _ _ _ h190 (run_ok _ _ _ s190)). Qed.
		2765	Lemma h188: halts tm (kden k188). Proof. exact (halts_evstep _ _ _ h189 (run_ok _ _ _ s189)). Qed.
		2766	Lemma h187: halts tm (kden k187). Proof. exact (halts_evstep _ _ _ h188 (run_ok _ _ _ s188)). Qed.
		2767	Lemma h186: halts tm (kden k186). Proof. exact (halts_evstep _ _ _ h187 (run_ok _ _ _ s187)). Qed.
		2768	Lemma h185: halts tm (kden k185). Proof. exact (halts_evstep _ _ _ h186 (run_ok _ _ _ s186)). Qed.
		2769	Lemma h184: halts tm (kden k184). Proof. exact (halts_evstep _ _ _ h185 (run_ok _ _ _ s185)). Qed.
		2770	Lemma h183: halts tm (kden k183). Proof. exact (halts_evstep _ _ _ h184 (run_ok _ _ _ s184)). Qed.
		2771	Lemma h182: halts tm (kden k182). Proof. exact (halts_evstep _ _ _ h183 (run_ok _ _ _ s183)). Qed.
		2772	Lemma h181: halts tm (kden k181). Proof. exact (halts_evstep _ _ _ h182 (run_ok _ _ _ s182)). Qed.
		2773	Lemma h180: halts tm (kden k180). Proof. exact (halts_evstep _ _ _ h181 (run_ok _ _ _ s181)). Qed.
		2774	Lemma h179: halts tm (kden k179). Proof. exact (halts_evstep _ _ _ h180 (run_ok _ _ _ s180)). Qed.
		2775	Lemma h178: halts tm (kden k178). Proof. exact (halts_evstep _ _ _ h179 (run_ok _ _ _ s179)). Qed.
		2776	Lemma h177: halts tm (kden k177). Proof. exact (halts_evstep _ _ _ h178 (run_ok _ _ _ s178)). Qed.
		2777	Lemma h176: halts tm (kden k176). Proof. exact (halts_evstep _ _ _ h177 (run_ok _ _ _ s177)). Qed.
		2778	Lemma h175: halts tm (kden k175). Proof. exact (halts_evstep _ _ _ h176 (run_ok _ _ _ s176)). Qed.
		2779	Lemma h174: halts tm (kden k174). Proof. exact (halts_evstep _ _ _ h175 (run_ok _ _ _ s175)). Qed.
		2780	Lemma h173: halts tm (kden k173). Proof. exact (halts_evstep _ _ _ h174 (run_ok _ _ _ s174)). Qed.
		2781	Lemma h172: halts tm (kden k172). Proof. exact (halts_evstep _ _ _ h173 (run_ok _ _ _ s173)). Qed.
		2782	Lemma h171: halts tm (kden k171). Proof. exact (halts_evstep _ _ _ h172 (run_ok _ _ _ s172)). Qed.
		2783	Lemma h170: halts tm (kden k170). Proof. exact (halts_evstep _ _ _ h171 (run_ok _ _ _ s171)). Qed.
		2784	Lemma h169: halts tm (kden k169). Proof. exact (halts_evstep _ _ _ h170 (run_ok _ _ _ s170)). Qed.
		2785	Lemma h168: halts tm (kden k168). Proof. exact (halts_evstep _ _ _ h169 (run_ok _ _ _ s169)). Qed.
		2786	Lemma h167: halts tm (kden k167). Proof. exact (halts_evstep _ _ _ h168 (run_ok _ _ _ s168)). Qed.
		2787	Lemma h166: halts tm (kden k166). Proof. exact (halts_evstep _ _ _ h167 (run_ok _ _ _ s167)). Qed.
		2788	Lemma h165: halts tm (kden k165). Proof. exact (halts_evstep _ _ _ h166 (run_ok _ _ _ s166)). Qed.
		2789	Lemma h164: halts tm (kden k164). Proof. exact (halts_evstep _ _ _ h165 (run_ok _ _ _ s165)). Qed.
		2790	Lemma h163: halts tm (kden k163). Proof. exact (halts_evstep _ _ _ h164 (run_ok _ _ _ s164)). Qed.
		2791	Lemma h162: halts tm (kden k162). Proof. exact (halts_evstep _ _ _ h163 (run_ok _ _ _ s163)). Qed.
		2792	Lemma h161: halts tm (kden k161). Proof. exact (halts_evstep _ _ _ h162 (run_ok _ _ _ s162)). Qed.
		2793	Lemma h160: halts tm (kden k160). Proof. exact (halts_evstep _ _ _ h161 (run_ok _ _ _ s161)). Qed.
		2794	Lemma h159: halts tm (kden k159). Proof. exact (halts_evstep _ _ _ h160 (run_ok _ _ _ s160)). Qed.
		2795	Lemma h158: halts tm (kden k158). Proof. exact (halts_evstep _ _ _ h159 (run_ok _ _ _ s159)). Qed.
		2796	Lemma h157: halts tm (kden k157). Proof. exact (halts_evstep _ _ _ h158 (run_ok _ _ _ s158)). Qed.
		2797	Lemma h156: halts tm (kden k156). Proof. exact (halts_evstep _ _ _ h157 (run_ok _ _ _ s157)). Qed.
		2798	Lemma h155: halts tm (kden k155). Proof. exact (halts_evstep _ _ _ h156 (run_ok _ _ _ s156)). Qed.
		2799	Lemma h154: halts tm (kden k154). Proof. exact (halts_evstep _ _ _ h155 (run_ok _ _ _ s155)). Qed.
		2800	Lemma h153: halts tm (kden k153). Proof. exact (halts_evstep _ _ _ h154 (run_ok _ _ _ s154)). Qed.
		2801	Lemma h152: halts tm (kden k152). Proof. exact (halts_evstep _ _ _ h153 (run_ok _ _ _ s153)). Qed.
		2802	Lemma h151: halts tm (kden k151). Proof. exact (halts_evstep _ _ _ h152 (run_ok _ _ _ s152)). Qed.
		2803	Lemma h150: halts tm (kden k150). Proof. exact (halts_evstep _ _ _ h151 (run_ok _ _ _ s151)). Qed.
		2804	Lemma h149: halts tm (kden k149). Proof. exact (halts_evstep _ _ _ h150 (run_ok _ _ _ s150)). Qed.
		2805	Lemma h148: halts tm (kden k148). Proof. exact (halts_evstep _ _ _ h149 (run_ok _ _ _ s149)). Qed.
		2806	Lemma h147: halts tm (kden k147). Proof. exact (halts_evstep _ _ _ h148 (run_ok _ _ _ s148)). Qed.
		2807	Lemma h146: halts tm (kden k146). Proof. exact (halts_evstep _ _ _ h147 (run_ok _ _ _ s147)). Qed.
		2808	Lemma h145: halts tm (kden k145). Proof. exact (halts_evstep _ _ _ h146 (run_ok _ _ _ s146)). Qed.
		2809	Lemma h144: halts tm (kden k144). Proof. exact (halts_evstep _ _ _ h145 (run_ok _ _ _ s145)). Qed.
		2810	Lemma h143: halts tm (kden k143). Proof. exact (halts_evstep _ _ _ h144 (run_ok _ _ _ s144)). Qed.
		2811	Lemma h142: halts tm (kden k142). Proof. exact (halts_evstep _ _ _ h143 (run_ok _ _ _ s143)). Qed.
		2812	Lemma h141: halts tm (kden k141). Proof. exact (halts_evstep _ _ _ h142 (run_ok _ _ _ s142)). Qed.
		2813	Lemma h140: halts tm (kden k140). Proof. exact (halts_evstep _ _ _ h141 (run_ok _ _ _ s141)). Qed.
		2814	Lemma h139: halts tm (kden k139). Proof. exact (halts_evstep _ _ _ h140 (run_ok _ _ _ s140)). Qed.
		2815	Lemma h138: halts tm (kden k138). Proof. exact (halts_evstep _ _ _ h139 (run_ok _ _ _ s139)). Qed.
		2816	Lemma h137: halts tm (kden k137). Proof. exact (halts_evstep _ _ _ h138 (run_ok _ _ _ s138)). Qed.
		2817	Lemma h136: halts tm (kden k136). Proof. exact (halts_evstep _ _ _ h137 (run_ok _ _ _ s137)). Qed.
		2818	Lemma h135: halts tm (kden k135). Proof. exact (halts_evstep _ _ _ h136 (run_ok _ _ _ s136)). Qed.
		2819	Lemma h134: halts tm (kden k134). Proof. exact (halts_evstep _ _ _ h135 (run_ok _ _ _ s135)). Qed.
		2820	Lemma h133: halts tm (kden k133). Proof. exact (halts_evstep _ _ _ h134 (run_ok _ _ _ s134)). Qed.
		2821	Lemma h132: halts tm (kden k132). Proof. exact (halts_evstep _ _ _ h133 (run_ok _ _ _ s133)). Qed.
		2822	Lemma h131: halts tm (kden k131). Proof. exact (halts_evstep _ _ _ h132 (run_ok _ _ _ s132)). Qed.
		2823	Lemma h130: halts tm (kden k130). Proof. exact (halts_evstep _ _ _ h131 (run_ok _ _ _ s131)). Qed.
		2824	Lemma h129: halts tm (kden k129). Proof. exact (halts_evstep _ _ _ h130 (run_ok _ _ _ s130)). Qed.
		2825	Lemma h128: halts tm (kden k128). Proof. exact (halts_evstep _ _ _ h129 (run_ok _ _ _ s129)). Qed.
		2826	Lemma h127: halts tm (kden k127). Proof. exact (halts_evstep _ _ _ h128 (run_ok _ _ _ s128)). Qed.
		2827	Lemma h126: halts tm (kden k126). Proof. exact (halts_evstep _ _ _ h127 (run_ok _ _ _ s127)). Qed.
		2828	Lemma h125: halts tm (kden k125). Proof. exact (halts_evstep _ _ _ h126 (run_ok _ _ _ s126)). Qed.
		2829	Lemma h124: halts tm (kden k124). Proof. exact (halts_evstep _ _ _ h125 (run_ok _ _ _ s125)). Qed.
		2830	Lemma h123: halts tm (kden k123). Proof. exact (halts_evstep _ _ _ h124 (run_ok _ _ _ s124)). Qed.
		2831	Lemma h122: halts tm (kden k122). Proof. exact (halts_evstep _ _ _ h123 (run_ok _ _ _ s123)). Qed.
		2832	Lemma h121: halts tm (kden k121). Proof. exact (halts_evstep _ _ _ h122 (run_ok _ _ _ s122)). Qed.
		2833	Lemma h120: halts tm (kden k120). Proof. exact (halts_evstep _ _ _ h121 (run_ok _ _ _ s121)). Qed.
		2834	Lemma h119: halts tm (kden k119). Proof. exact (halts_evstep _ _ _ h120 (run_ok _ _ _ s120)). Qed.
		2835	Lemma h118: halts tm (kden k118). Proof. exact (halts_evstep _ _ _ h119 (run_ok _ _ _ s119)). Qed.
		2836	Lemma h117: halts tm (kden k117). Proof. exact (halts_evstep _ _ _ h118 (run_ok _ _ _ s118)). Qed.
		2837	Lemma h116: halts tm (kden k116). Proof. exact (halts_evstep _ _ _ h117 (run_ok _ _ _ s117)). Qed.
		2838	Lemma h115: halts tm (kden k115). Proof. exact (halts_evstep _ _ _ h116 (run_ok _ _ _ s116)). Qed.
		2839	Lemma h114: halts tm (kden k114). Proof. exact (halts_evstep _ _ _ h115 (run_ok _ _ _ s115)). Qed.
		2840	Lemma h113: halts tm (kden k113). Proof. exact (halts_evstep _ _ _ h114 (run_ok _ _ _ s114)). Qed.
		2841	Lemma h112: halts tm (kden k112). Proof. exact (halts_evstep _ _ _ h113 (run_ok _ _ _ s113)). Qed.
		2842	Lemma h111: halts tm (kden k111). Proof. exact (halts_evstep _ _ _ h112 (run_ok _ _ _ s112)). Qed.
		2843	Lemma h110: halts tm (kden k110). Proof. exact (halts_evstep _ _ _ h111 (run_ok _ _ _ s111)). Qed.
		2844	Lemma h109: halts tm (kden k109). Proof. exact (halts_evstep _ _ _ h110 (run_ok _ _ _ s110)). Qed.
		2845	Lemma h108: halts tm (kden k108). Proof. exact (halts_evstep _ _ _ h109 (run_ok _ _ _ s109)). Qed.
		2846	Lemma h107: halts tm (kden k107). Proof. exact (halts_evstep _ _ _ h108 (run_ok _ _ _ s108)). Qed.
		2847	Lemma h106: halts tm (kden k106). Proof. exact (halts_evstep _ _ _ h107 (run_ok _ _ _ s107)). Qed.
		2848	Lemma h105: halts tm (kden k105). Proof. exact (halts_evstep _ _ _ h106 (run_ok _ _ _ s106)). Qed.
		2849	Lemma h104: halts tm (kden k104). Proof. exact (halts_evstep _ _ _ h105 (run_ok _ _ _ s105)). Qed.
		2850	Lemma h103: halts tm (kden k103). Proof. exact (halts_evstep _ _ _ h104 (run_ok _ _ _ s104)). Qed.
		2851	Lemma h102: halts tm (kden k102). Proof. exact (halts_evstep _ _ _ h103 (run_ok _ _ _ s103)). Qed.
		2852	Lemma h101: halts tm (kden k101). Proof. exact (halts_evstep _ _ _ h102 (run_ok _ _ _ s102)). Qed.
		2853	Lemma h100: halts tm (kden k100). Proof. exact (halts_evstep _ _ _ h101 (run_ok _ _ _ s101)). Qed.
		2854	Lemma h99: halts tm (kden k99). Proof. exact (halts_evstep _ _ _ h100 (run_ok _ _ _ s100)). Qed.
		2855	Lemma h98: halts tm (kden k98). Proof. exact (halts_evstep _ _ _ h99 (run_ok _ _ _ s99)). Qed.
		2856	Lemma h97: halts tm (kden k97). Proof. exact (halts_evstep _ _ _ h98 (run_ok _ _ _ s98)). Qed.
		2857	Lemma h96: halts tm (kden k96). Proof. exact (halts_evstep _ _ _ h97 (run_ok _ _ _ s97)). Qed.
		2858	Lemma h95: halts tm (kden k95). Proof. exact (halts_evstep _ _ _ h96 (run_ok _ _ _ s96)). Qed.
		2859	Lemma h94: halts tm (kden k94). Proof. exact (halts_evstep _ _ _ h95 (run_ok _ _ _ s95)). Qed.
		2860	Lemma h93: halts tm (kden k93). Proof. exact (halts_evstep _ _ _ h94 (run_ok _ _ _ s94)). Qed.
		2861	Lemma h92: halts tm (kden k92). Proof. exact (halts_evstep _ _ _ h93 (run_ok _ _ _ s93)). Qed.
		2862	Lemma h91: halts tm (kden k91). Proof. exact (halts_evstep _ _ _ h92 (run_ok _ _ _ s92)). Qed.
		2863	Lemma h90: halts tm (kden k90). Proof. exact (halts_evstep _ _ _ h91 (run_ok _ _ _ s91)). Qed.
		2864	Lemma h89: halts tm (kden k89). Proof. exact (halts_evstep _ _ _ h90 (run_ok _ _ _ s90)). Qed.
		2865	Lemma h88: halts tm (kden k88). Proof. exact (halts_evstep _ _ _ h89 (run_ok _ _ _ s89)). Qed.
		2866	Lemma h87: halts tm (kden k87). Proof. exact (halts_evstep _ _ _ h88 (run_ok _ _ _ s88)). Qed.
		2867	Lemma h86: halts tm (kden k86). Proof. exact (halts_evstep _ _ _ h87 (run_ok _ _ _ s87)). Qed.
		2868	Lemma h85: halts tm (kden k85). Proof. exact (halts_evstep _ _ _ h86 (run_ok _ _ _ s86)). Qed.
		2869	Lemma h84: halts tm (kden k84). Proof. exact (halts_evstep _ _ _ h85 (run_ok _ _ _ s85)). Qed.
		2870	Lemma h83: halts tm (kden k83). Proof. exact (halts_evstep _ _ _ h84 (run_ok _ _ _ s84)). Qed.
		2871	Lemma h82: halts tm (kden k82). Proof. exact (halts_evstep _ _ _ h83 (run_ok _ _ _ s83)). Qed.
		2872	Lemma h81: halts tm (kden k81). Proof. exact (halts_evstep _ _ _ h82 (run_ok _ _ _ s82)). Qed.
		2873	Lemma h80: halts tm (kden k80). Proof. exact (halts_evstep _ _ _ h81 (run_ok _ _ _ s81)). Qed.
		2874	Lemma h79: halts tm (kden k79). Proof. exact (halts_evstep _ _ _ h80 (run_ok _ _ _ s80)). Qed.
		2875	Lemma h78: halts tm (kden k78). Proof. exact (halts_evstep _ _ _ h79 (run_ok _ _ _ s79)). Qed.
		2876	Lemma h77: halts tm (kden k77). Proof. exact (halts_evstep _ _ _ h78 (run_ok _ _ _ s78)). Qed.
		2877	Lemma h76: halts tm (kden k76). Proof. exact (halts_evstep _ _ _ h77 (run_ok _ _ _ s77)). Qed.
		2878	Lemma h75: halts tm (kden k75). Proof. exact (halts_evstep _ _ _ h76 (run_ok _ _ _ s76)). Qed.
		2879	Lemma h74: halts tm (kden k74). Proof. exact (halts_evstep _ _ _ h75 (run_ok _ _ _ s75)). Qed.
		2880	Lemma h73: halts tm (kden k73). Proof. exact (halts_evstep _ _ _ h74 (run_ok _ _ _ s74)). Qed.
		2881	Lemma h72: halts tm (kden k72). Proof. exact (halts_evstep _ _ _ h73 (run_ok _ _ _ s73)). Qed.
		2882	Lemma h71: halts tm (kden k71). Proof. exact (halts_evstep _ _ _ h72 (run_ok _ _ _ s72)). Qed.
		2883	Lemma h70: halts tm (kden k70). Proof. exact (halts_evstep _ _ _ h71 (run_ok _ _ _ s71)). Qed.
		2884	Lemma h69: halts tm (kden k69). Proof. exact (halts_evstep _ _ _ h70 (run_ok _ _ _ s70)). Qed.
		2885	Lemma h68: halts tm (kden k68). Proof. exact (halts_evstep _ _ _ h69 (run_ok _ _ _ s69)). Qed.
		2886	Lemma h67: halts tm (kden k67). Proof. exact (halts_evstep _ _ _ h68 (run_ok _ _ _ s68)). Qed.
		2887	Lemma h66: halts tm (kden k66). Proof. exact (halts_evstep _ _ _ h67 (run_ok _ _ _ s67)). Qed.
		2888	Lemma h65: halts tm (kden k65). Proof. exact (halts_evstep _ _ _ h66 (run_ok _ _ _ s66)). Qed.
		2889	Lemma h64: halts tm (kden k64). Proof. exact (halts_evstep _ _ _ h65 (run_ok _ _ _ s65)). Qed.
		2890	Lemma h63: halts tm (kden k63). Proof. exact (halts_evstep _ _ _ h64 (run_ok _ _ _ s64)). Qed.
		2891	Lemma h62: halts tm (kden k62). Proof. exact (halts_evstep _ _ _ h63 (run_ok _ _ _ s63)). Qed.
		2892	Lemma h61: halts tm (kden k61). Proof. exact (halts_evstep _ _ _ h62 (run_ok _ _ _ s62)). Qed.
		2893	Lemma h60: halts tm (kden k60). Proof. exact (halts_evstep _ _ _ h61 (run_ok _ _ _ s61)). Qed.
		2894	Lemma h59: halts tm (kden k59). Proof. exact (halts_evstep _ _ _ h60 (run_ok _ _ _ s60)). Qed.
		2895	Lemma h58: halts tm (kden k58). Proof. exact (halts_evstep _ _ _ h59 (run_ok _ _ _ s59)). Qed.
		2896	Lemma h57: halts tm (kden k57). Proof. exact (halts_evstep _ _ _ h58 (run_ok _ _ _ s58)). Qed.
		2897	Lemma h56: halts tm (kden k56). Proof. exact (halts_evstep _ _ _ h57 (run_ok _ _ _ s57)). Qed.
		2898	Lemma h55: halts tm (kden k55). Proof. exact (halts_evstep _ _ _ h56 (run_ok _ _ _ s56)). Qed.
		2899	Lemma h54: halts tm (kden k54). Proof. exact (halts_evstep _ _ _ h55 (run_ok _ _ _ s55)). Qed.
		2900	Lemma h53: halts tm (kden k53). Proof. exact (halts_evstep _ _ _ h54 (run_ok _ _ _ s54)). Qed.
		2901	Lemma h52: halts tm (kden k52). Proof. exact (halts_evstep _ _ _ h53 (run_ok _ _ _ s53)). Qed.
		2902	Lemma h51: halts tm (kden k51). Proof. exact (halts_evstep _ _ _ h52 (run_ok _ _ _ s52)). Qed.
		2903	Lemma h50: halts tm (kden k50). Proof. exact (halts_evstep _ _ _ h51 (run_ok _ _ _ s51)). Qed.
		2904	Lemma h49: halts tm (kden k49). Proof. exact (halts_evstep _ _ _ h50 (run_ok _ _ _ s50)). Qed.
		2905	Lemma h48: halts tm (kden k48). Proof. exact (halts_evstep _ _ _ h49 (run_ok _ _ _ s49)). Qed.
		2906	Lemma h47: halts tm (kden k47). Proof. exact (halts_evstep _ _ _ h48 (run_ok _ _ _ s48)). Qed.
		2907	Lemma h46: halts tm (kden k46). Proof. exact (halts_evstep _ _ _ h47 (run_ok _ _ _ s47)). Qed.
		2908	Lemma h45: halts tm (kden k45). Proof. exact (halts_evstep _ _ _ h46 (run_ok _ _ _ s46)). Qed.
		2909	Lemma h44: halts tm (kden k44). Proof. exact (halts_evstep _ _ _ h45 (run_ok _ _ _ s45)). Qed.
		2910	Lemma h43: halts tm (kden k43). Proof. exact (halts_evstep _ _ _ h44 (run_ok _ _ _ s44)). Qed.
		2911	Lemma h42: halts tm (kden k42). Proof. exact (halts_evstep _ _ _ h43 (run_ok _ _ _ s43)). Qed.
		2912	Lemma h41: halts tm (kden k41). Proof. exact (halts_evstep _ _ _ h42 (run_ok _ _ _ s42)). Qed.
		2913	Lemma h40: halts tm (kden k40). Proof. exact (halts_evstep _ _ _ h41 (run_ok _ _ _ s41)). Qed.
		2914	Lemma h39: halts tm (kden k39). Proof. exact (halts_evstep _ _ _ h40 (run_ok _ _ _ s40)). Qed.
		2915	Lemma h38: halts tm (kden k38). Proof. exact (halts_evstep _ _ _ h39 (run_ok _ _ _ s39)). Qed.
		2916	Lemma h37: halts tm (kden k37). Proof. exact (halts_evstep _ _ _ h38 (run_ok _ _ _ s38)). Qed.
		2917	Lemma h36: halts tm (kden k36). Proof. exact (halts_evstep _ _ _ h37 (run_ok _ _ _ s37)). Qed.
		2918	Lemma h35: halts tm (kden k35). Proof. exact (halts_evstep _ _ _ h36 (run_ok _ _ _ s36)). Qed.
		2919	Lemma h34: halts tm (kden k34). Proof. exact (halts_evstep _ _ _ h35 (run_ok _ _ _ s35)). Qed.
		2920	Lemma h33: halts tm (kden k33). Proof. exact (halts_evstep _ _ _ h34 (run_ok _ _ _ s34)). Qed.
		2921	Lemma h32: halts tm (kden k32). Proof. exact (halts_evstep _ _ _ h33 (run_ok _ _ _ s33)). Qed.
		2922	Lemma h31: halts tm (kden k31). Proof. exact (halts_evstep _ _ _ h32 (run_ok _ _ _ s32)). Qed.
		2923	Lemma h30: halts tm (kden k30). Proof. exact (halts_evstep _ _ _ h31 (run_ok _ _ _ s31)). Qed.
		2924	Lemma h29: halts tm (kden k29). Proof. exact (halts_evstep _ _ _ h30 (run_ok _ _ _ s30)). Qed.
		2925	Lemma h28: halts tm (kden k28). Proof. exact (halts_evstep _ _ _ h29 (run_ok _ _ _ s29)). Qed.
		2926	Lemma h27: halts tm (kden k27). Proof. exact (halts_evstep _ _ _ h28 (run_ok _ _ _ s28)). Qed.
		2927	Lemma h26: halts tm (kden k26). Proof. exact (halts_evstep _ _ _ h27 (run_ok _ _ _ s27)). Qed.
		2928	Lemma h25: halts tm (kden k25). Proof. exact (halts_evstep _ _ _ h26 (run_ok _ _ _ s26)). Qed.
		2929	Lemma h24: halts tm (kden k24). Proof. exact (halts_evstep _ _ _ h25 (run_ok _ _ _ s25)). Qed.
		2930	Lemma h23: halts tm (kden k23). Proof. exact (halts_evstep _ _ _ h24 (run_ok _ _ _ s24)). Qed.
		2931	Lemma h22: halts tm (kden k22). Proof. exact (halts_evstep _ _ _ h23 (run_ok _ _ _ s23)). Qed.
		2932	Lemma h21: halts tm (kden k21). Proof. exact (halts_evstep _ _ _ h22 (run_ok _ _ _ s22)). Qed.
		2933	Lemma h20: halts tm (kden k20). Proof. exact (halts_evstep _ _ _ h21 (run_ok _ _ _ s21)). Qed.
		2934	Lemma h19: halts tm (kden k19). Proof. exact (halts_evstep _ _ _ h20 (run_ok _ _ _ s20)). Qed.
		2935	Lemma h18: halts tm (kden k18). Proof. exact (halts_evstep _ _ _ h19 (run_ok _ _ _ s19)). Qed.
		2936	Lemma h17: halts tm (kden k17). Proof. exact (halts_evstep _ _ _ h18 (run_ok _ _ _ s18)). Qed.
		2937	Lemma h16: halts tm (kden k16). Proof. exact (halts_evstep _ _ _ h17 (run_ok _ _ _ s17)). Qed.
		2938	Lemma h15: halts tm (kden k15). Proof. exact (halts_evstep _ _ _ h16 (run_ok _ _ _ s16)). Qed.
		2939	Lemma h14: halts tm (kden k14). Proof. exact (halts_evstep _ _ _ h15 (run_ok _ _ _ s15)). Qed.
		2940	Lemma h13: halts tm (kden k13). Proof. exact (halts_evstep _ _ _ h14 (run_ok _ _ _ s14)). Qed.
		2941	Lemma h12: halts tm (kden k12). Proof. exact (halts_evstep _ _ _ h13 (run_ok _ _ _ s13)). Qed.
		2942	Lemma h11: halts tm (kden k11). Proof. exact (halts_evstep _ _ _ h12 (run_ok _ _ _ s12)). Qed.
		2943	Lemma h10: halts tm (kden k10). Proof. exact (halts_evstep _ _ _ h11 (run_ok _ _ _ s11)). Qed.
		2944	Lemma h9: halts tm (kden k9). Proof. exact (halts_evstep _ _ _ h10 (run_ok _ _ _ s10)). Qed.
		2945	Lemma h8: halts tm (kden k8). Proof. exact (halts_evstep _ _ _ h9 (run_ok _ _ _ s9)). Qed.
		2946	Lemma h7: halts tm (kden k7). Proof. exact (halts_evstep _ _ _ h8 (run_ok _ _ _ s8)). Qed.
		2947	Lemma h6: halts tm (kden k6). Proof. exact (halts_evstep _ _ _ h7 (run_ok _ _ _ s7)). Qed.
		2948	Lemma h5: halts tm (kden k5). Proof. exact (halts_evstep _ _ _ h6 (run_ok _ _ _ s6)). Qed.
		2949	Lemma h4: halts tm (kden k4). Proof. exact (halts_evstep _ _ _ h5 (run_ok _ _ _ s5)). Qed.
		2950	Lemma h3: halts tm (kden k3). Proof. exact (halts_evstep _ _ _ h4 (run_ok _ _ _ s4)). Qed.
		2951	Lemma h2: halts tm (kden k2). Proof. exact (halts_evstep _ _ _ h3 (run_ok _ _ _ s3)). Qed.
		2952	Lemma h1: halts tm (kden k1). Proof. exact (halts_evstep _ _ _ h2 (run_ok _ _ _ s2)). Qed.
		2953	Lemma h0: halts tm (kden k0). Proof. exact (halts_evstep _ _ _ h1 (run_ok _ _ _ s1)). Qed.
		2954	Lemma halt: halts tm c0. Proof. exact (halts_evstep _ _ _ h0 init). Qed.
		2956	(*
		2957	```
		2958	K-form K X b c = X <* [0] {{E}}> bellw b c *> 0inf
		2959	bellw b c = [1;0;1] ++ [0;0;1]^^b ++ [0;0;0;1] ++ [0;0;1]^^c (cells left to right)
		2960	call callw X X' = forall r, X <{{C}} 0 >> r -->* X' {{B}}> 0 >> r (X: counter, nearest cell first)
		2961	round callw X X' -> K X (S b) c -->+ K X' b (S c) E1 = 1LF, F0 = 0LC, call, then the bell part (es)
		2962	digits dcell Dm = [1;0;0], D0 = [0;0;0], D1 = [1;0;1], D2 = [0;0;1] (nearest cell first; -1, 0, 1, 2)
		2963	absorb callw (dcell Dm > H) (dcell D0 > H), D0 -> D1, D1 -> D2 (es)
		2964	pass callw X X' -> callw ([0;0;1] > X) ([1;0;0] > X') (5 steps, the call, es)
		2965	rounds length ds' = length ds -> val ds' = val ds + n ->
		2966	K (cells ds > H) (n + b) c --> K (cells ds' *> H) b (n + c)
		2967	batch split 16 w = (D, H) (clean low digits D); n = min b (maxv \|D\| - val D); D' = addn D n
		2968	macro side = runs (block, count) then 0inf; pop rotates a run, push merges equal blocks
		2969	block rule: window run of [context ++ block] exits forward in the same state with the
		2970	context unchanged -> cross all copies (shift_rule_R on the right, shift_rule_L on the left)
		2971	next b = 0: macro run to the first K-form with b >= 1 (eat); b >= 1: batch, else macro run to
		2972	the next K-form; a halting step of the macro run gives halts tm
		2973	start c0 -->* K 0inf 0 2 (288 steps, solve_init)
		2974	end k750 -> after 7,513 more iterations the last macro run reaches F reading 1 (F1 = ---)
		2975	```
		2976	*)

3Proof outlineCheck: the new items (green) carry the argument; the names read like the proof.md rules.

2375 items in 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v (2976 lines): 1556 Lemma, 797 Definition, 18 Fixpoint, 4 Inductive. Tags against the template: identical = same name and same text once each file's own TM string is <TM> (marked "except the TM string" when that is the only difference); adapted = same name, different text; new = no item of that name in the template part.

#	kind	name	statement (no proof body)	line	vs template
1	Definition	`tm`	Definition tm := Eval compute in (TM_from_str "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---").	L35	adapted
2	Definition	`bellw`	Definition bellw b c : list Sym := [1;0;1] ++ [0;0;1]^^b ++ [0;0;0;1] ++ [0;0;1]^^c.	L40	new
3	Definition	`K`	Definition K (X:side) b c : Q * tape := X <* [0] {{E}}> bellw b c *> 0inf.	L41	new
4	Definition	`callw`	Definition callw (X X':side) := forall r, X <{{C}} 0 >> r -->* X' {{B}}> 0 >> r.	L42	new
5	Lemma	`bellpart`	Lemma bellpart X b c: X {{B}}> 0 >> bellw (S b) c *> 0inf -->+ K X b (S c).	L44	new
6	Lemma	`round`	Lemma round X X' b c: callw X X' -> K X (S b) c -->+ K X' b (S c).	L47	new
7	Inductive	`dg`	Inductive dg := Dm \| D0 \| D1 \| D2.	L54	new
8	Definition	`dcell`	Definition dcell (d:dg) : list Sym := match d with \| Dm => [1;0;0] \| D0 => [0;0;0] \| D1 => [1;0;1] \| D2 => [0;0;1] end.	L55	new
9	Fixpoint	`cells`	Fixpoint cells (ds:list dg) : list Sym := match ds with [] => [] \| d::r => dcell d ++ cells r end.	L57	adapted
10	Fixpoint	`inc`	Fixpoint inc (ds:list dg) : option (list dg) := match ds with \| [] => None \| D2 :: r => match inc r with Some r' => Some (Dm :: r') \| None => None end \| Dm :: r => Some (D0 :: r) \| D0 :: r => Some (D1 :: r) \| D1 :: r => Some (D2 :: r) end.	L58	adapted
11	Lemma	`absm`	Lemma absm H: callw ([1;0;0] > H) ([0;0;0] > H).	L63	new
12	Lemma	`abs0`	Lemma abs0 H: callw ([0;0;0] > H) ([1;0;1] > H).	L65	new
13	Lemma	`abs1`	Lemma abs1 H: callw ([1;0;1] > H) ([0;0;1] > H).	L67	new
14	Lemma	`pass2`	Lemma pass2 X X': callw X X' -> callw ([0;0;1] > X) ([1;0;0] > X').	L69	new
15	Lemma	`callw_inc`	Lemma callw_inc ds: forall ds' H, inc ds = Some ds' -> callw (cells ds > H) (cells ds' > H).	L75	new
16	Lemma	`round_inc`	Lemma round_inc ds ds' H b c: inc ds = Some ds' -> K (cells ds > H) (S b) c -->+ K (cells ds' > H) b (S c).	L86	new
17	Definition	`dv`	Definition dv (d:dg) : Z := match d with Dm => (-1)%Z \| D0 => 0%Z \| D1 => 1%Z \| D2 => 2%Z end.	L91	new
18	Fixpoint	`val`	Fixpoint val (ds:list dg) : Z := match ds with [] => 0%Z \| d::r => (dv d + 4 * val r)%Z end.	L92	new
19	Fixpoint	`maxv`	Fixpoint maxv (f:nat) : Z := match f with O => 0%Z \| S f => (2 + 4 * maxv f)%Z end.	L93	new
20	Lemma	`val_le_maxv`	Lemma val_le_maxv ds: (val ds <= maxv (length ds))%Z.	L95	new
21	Lemma	`val_inj`	Lemma val_inj ds: forall ds', length ds' = length ds -> val ds' = val ds -> ds' = ds.	L98	new
22	Lemma	`inc_some`	Lemma inc_some ds: (val ds < maxv (length ds))%Z -> exists ds', inc ds = Some ds'.	L106	new
23	Lemma	`inc_val`	Lemma inc_val ds: forall ds', inc ds = Some ds' -> length ds' = length ds /\ val ds' = (val ds + 1)%Z.	L113	new
24	Lemma	`rounds`	Lemma rounds n: forall ds ds' H b c, length ds' = length ds -> val ds' = (val ds + Z.of_nat n)%Z -> K (cells ds > H) (n + b) c --> K (cells ds' *> H) b (n + c).	L124	new
25	Definition	`dg_of_mod`	Definition dg_of_mod (t:Z) : dg := if Z.eqb (t mod 4) 0 then D0 else if Z.eqb (t mod 4) 1 then D1 else if Z.eqb (t mod 4) 2 then D2 else Dm.	L139	new
26	Lemma	`dg_of_mod_spec`	Lemma dg_of_mod_spec t: (4 * ((t - dv (dg_of_mod t)) / 4) = t - dv (dg_of_mod t))%Z.	L141	new
27	Fixpoint	`addn`	Fixpoint addn (ds:list dg) (k:Z) : option (list dg) := if Z.eqb k 0 then Some ds else match ds with \| [] => None \| d::r => let t := (dv d + k)%Z in … +3 lines	L150	new
28	Lemma	`addn_spec`	Lemma addn_spec ds: forall k ds', addn ds k = Some ds' -> length ds' = length ds /\ val ds' = (val ds + k)%Z.	L160	new
29	Definition	`seqb`	Definition seqb (a b:Sym) : bool := match a, b with S0, S0 => true \| S1, S1 => true \| _, _ => false end.	L172	new
30	Lemma	`seqb_eq`	Lemma seqb_eq a b: seqb a b = true -> a = b.	L173	new
31	Fixpoint	`lsym_eqb`	Fixpoint lsym_eqb (u v:list Sym) : bool := match u, v with \| [], [] => true \| x::u', y::v' => if seqb x y then lsym_eqb u' v' else false \| _, _ => false end.	L175	new
32	Lemma	`lsym_eqb_eq`	Lemma lsym_eqb_eq u: forall v, lsym_eqb u v = true -> u = v.	L177	new
33	Definition	`qeqb`	Definition qeqb (a b:Q) : bool := match a, b with \| A, A => true \| B, B => true \| C, C => true \| D, D => true \| E, E => true \| F, F => true \| _, _ => false end.	L183	new
34	Lemma	`qeqb_eq`	Lemma qeqb_eq a b: qeqb a b = true -> a = b.	L185	new
35	Definition	`sd`	Definition sd := list (list Sym * N).	L188	new
36	Fixpoint	`sdn`	Fixpoint sdn (s:sd) : side := match s with [] => const S0 \| (u,n)::s' => u ^^ (N.to_nat n) *> sdn s' end.	L189	new
37	Lemma	`lpow_nil`	Lemma lpow_nil {T} n: ([]:list T)^^n = [].	L191	new
38	Lemma	`lpow1`	Lemma lpow1 (u:list Sym) r: u ^^ 1 > r = u > r.	L193	new
39	Lemma	`lpow_rot`	Lemma lpow_rot (z:Sym) u1 m: (z::u1)^^(S m) = z :: ((u1 ++ [z])^^m ++ u1).	L195	new
40	Definition	`consr`	Definition consr (u:list Sym) (rest:sd) : sd := match u with [] => rest \| _ => (u,1%N)::rest end.	L201	new
41	Lemma	`consr_spec`	Lemma consr_spec u rest: sdn (consr u rest) = u *> sdn rest.	L202	new
42	Definition	`pop_run`	Definition pop_run (z:Sym) (u1:list Sym) (n:N) (rest:sd) : Sym * sd := if N.eqb n 1 then (z, consr u1 rest) else (z, (u1 ++ [z], N.pred n) :: consr u1 rest).	L205	new
43	Fixpoint	`pop`	Fixpoint pop (s:sd) : Sym * sd := match s with \| [] => (S0, []) \| (u,n)::rest => match u with \| [] => pop rest \| z::u1 => if N.eqb n 0 then pop rest else pop_run z u1 n rest end end.	L207	adapted
44	Lemma	`pop_spec`	Lemma pop_spec s: forall z s', pop s = (z, s') -> sdn s = z >> sdn s'.	L213	adapted
45	Definition	`allz`	Definition allz (u:list Sym) : bool := forallb (fun x => seqb x S0) u.	L228	new
46	Lemma	`allz_spec`	Lemma allz_spec u: allz u = true -> u *> const S0 = const S0.	L229	new
47	Definition	`push_block`	Definition push_block (s:sd) (u:list Sym) (n:N) : sd := match s with \| [] => if allz u then [] else [(u,n)] \| (v,m)::rest => if lsym_eqb u v then (v, (n+m)%N)::rest else (u,n)::s end.	L235	new
48	Lemma	`push_block_spec`	Lemma push_block_spec s u n: sdn (push_block s u n) = u^^(N.to_nat n) *> sdn s.	L238	new
49	Definition	`fold6`	Definition fold6 (a b c:Sym) (rest s:sd) : sd := match rest with \| ([d],n4)::([e],n5)::([f],n6)::rest' => if N.eqb n4 1 then if N.eqb n5 1 then if N.eqb n6 1 then if lsym_eqb [a;b;c] [d;e;f] then if seqb a b then if seqb b c then s else ([a;b;c], 2%N)::rest' else ([a;b;c], 2%N)::rest' else s else s else s else s \| _ => s end.	L247	new
50	Definition	`fold3`	Definition fold3 (s:sd) : sd := match s with \| ([a],n1)::([b],n2)::([c],n3)::rest => if N.eqb n1 1 then if N.eqb n2 1 then if N.eqb n3 1 then match rest with \| (v,m)::rest' => if lsym_eqb [a;b;c] v then ([a;b;c], N.succ m)::rest' else fold6 a b c rest s \| [] => s end … +2 lines	L253	new
51	Lemma	`fold6_spec`	Lemma fold6_spec a b c rest s: sdn s = a >> b >> c >> sdn rest -> sdn (fold6 a b c rest s) = sdn s.	L262	new
52	Lemma	`fold3_spec`	Lemma fold3_spec s: sdn (fold3 s) = sdn s.	L276	new
53	Definition	`push`	Definition push (s:sd) (x:Sym) : sd := fold3 (push_block s [x] 1%N).	L290	adapted
54	Lemma	`push_spec`	Lemma push_spec s x: sdn (push s x) = x >> sdn s.	L291	adapted
55	Fixpoint	`take`	Fixpoint take (k:nat) (s:sd) : list Sym * sd := match k with \| O => ([], s) \| S k' => let (z, s1) := pop s in let (zs, s2) := take k' s1 in (z::zs, s2) end.	L294	adapted
56	Lemma	`take_spec`	Lemma take_spec k: forall s zs s', take k s = (zs, s') -> sdn s = zs *> sdn s'.	L297	new
57	Definition	`pop3`	Definition pop3 (s:sd) : list Sym * sd := match s with \| (u, n)::rest => if Nat.eqb (length u) 3 then if N.leb 1 n then (u, if N.eqb n 1 then rest else (u, N.pred n)::rest) else take 3 s else take 3 s \| [] => take 3 s end.	L306	new
58	Lemma	`pop3_spec`	Lemma pop3_spec s cs s': pop3 s = (cs, s') -> sdn s = cs *> sdn s'.	L310	new
59	Fixpoint	`wsim`	Fixpoint wsim (fuel:nat) (q:Q) (wl:list Sym) (h:Sym) (wr:list Sym) (fl:bool) : option (Q * list Sym) := match fuel with O => None \| S f => match tm (q, h) with \| None => None \| Some (y, d, q') => if (match d with R => negb fl \| L => fl end) then … +3 lines	L322	new
60	Definition	`wden`	Definition wden (fl:bool) (q:Q) (wl:list Sym) (h:Sym) (wr:list Sym) (bk fw:side) : Q * tape := if fl then (q, (wr > fw, h, wl > bk)) else (q, (wl > bk, h, wr > fw)).	L332	new
61	Definition	`wout`	Definition wout (fl:bool) (q:Q) (out:list Sym) (bk fw:side) : Q * tape := if fl then fw <{{q}} out > bk else (out > bk) {{q}}> fw.	L334	new
62	Lemma	`wsim_spec`	Lemma wsim_spec fuel: forall q wl h wr fl q' out, wsim fuel q wl h wr fl = Some (q', out) -> forall bk fw, wden fl q wl h wr bk fw -->* wout fl q' out bk fw.	L337	new
63	Definition	`try_k`	Definition try_k (k:nat) (q:Q) (sa:sd) (x:list Sym) (fl:bool) : option (list Sym * list Sym * sd) := let (dc, sa2) := take k sa in match x with [] => None \| h::xr => match wsim 64 q dc h xr fl with \| Some (q', out) => if qeqb q' q then if lsym_eqb (firstn k out) dc then Some (dc, skipn k out, sa2) else None else None \| None => None end end.	L355	new
64	Definition	`rule_ok`	Definition rule_ok (fl:bool) (q:Q) (x dc x2:list Sym) : Prop := if fl then forall l r, l <* x <{{q}} dc > r --> l <{{q}} dc > x2 > r else forall l r, l <* dc {{q}}> x > r --> l <* x2 <* dc {{q}}> r.	L362	new
65	Lemma	`try_k_spec`	Lemma try_k_spec k q sa x fl dc x2 sa2: try_k k q sa x fl = Some (dc, x2, sa2) -> sdn sa = dc *> sdn sa2 /\ rule_ok fl q x dc x2.	L366	new
66	Definition	`try3`	Definition try3 q sa x fl : option (list Sym * list Sym * sd) := match try_k 0 q sa x fl with Some r => Some r \| None => match try_k 1 q sa x fl with Some r => Some r \| None => try_k 2 q sa x fl end end.	L382	new
67	Lemma	`try3_spec`	Lemma try3_spec q sa x fl dc x2 sa2: try3 q sa x fl = Some (dc, x2, sa2) -> sdn sa = dc *> sdn sa2 /\ rule_ok fl q x dc x2.	L385	new
68	Fixpoint	`pushl`	Fixpoint pushl (dc:list Sym) (s:sd) : sd := match dc with [] => s \| c::dc' => push_block (pushl dc' s) [c] 1%N end.	L393	new
69	Lemma	`pushl_spec`	Lemma pushl_spec dc s: sdn (pushl dc s) = dc *> sdn s.	L394	new
70	Inductive	`dn`	Inductive dn := DL \| DR.	L397	new
71	Definition	`cfg`	Definition cfg := (Q * sd * sd * dn)%type.	L398	new
72	Definition	`cdn`	Definition cdn (c:cfg) : Q * tape := let '(q, Ls, Rs, d) := c in match d with DR => sdn Ls {{q}}> sdn Rs \| DL => sdn Ls <{{q}} sdn Rs end.	L399	new
73	Definition	`try_rule`	Definition try_rule (c:cfg) : option cfg := let '(q, Ls, Rs, d) := c in match d with \| DR => match Rs with [] => None \| (x,n)::rest => if N.leb 2 n then if Nat.leb 2 (length x) then match try3 q Ls x false with Some (dc, x2, L2) => Some (q, pushl dc (push_block L2 x2 n), rest, DR) \| None => None end … +6 lines	L402	new
74	Lemma	`try_rule_spec`	Lemma try_rule_spec c c': try_rule c = Some c' -> cdn c -->* cdn c'.	L415	new
75	Inductive	`mres`	Inductive mres := MOk (c:cfg) \| MHalt.	L432	new
76	Definition	`single`	Definition single (c:cfg) : mres := let '(q, Ls, Rs, d) := c in match d with \| DR => let (z, Rs') := pop Rs in match tm (q, z) with None => MHalt \| Some (y, R, q') => MOk (q', push Ls y, Rs', DR) … +6 lines	L433	adapted
77	Definition	`mstep`	Definition mstep (c:cfg) : mres := match try_rule c with Some c' => MOk c' \| None => single c end.	L445	new
78	Definition	`mok`	Definition mok (c:cfg) (r:mres) : Prop := match r with MOk c' => cdn c -->* cdn c' \| MHalt => halts tm (cdn c) end.	L446	new
79	Lemma	`single_spec`	Lemma single_spec c: mok c (single c).	L448	new
80	Lemma	`mstep_spec`	Lemma mstep_spec c: mok c (mstep c).	L463	new
81	Definition	`B001`	Definition B001 : list Sym := [S0;S0;S1].	L469	new
82	Fixpoint	`eat001`	Fixpoint eat001 (fuel:nat) (s:sd) : N * sd := match fuel with O => (0%N, s) \| S f => match s with \| [] => (0%N, s) \| (u, n)::rest => if lsym_eqb u B001 then let (m, s') := eat001 f rest in ((n+m)%N, s') else let (cs, s1) := pop3 s in if lsym_eqb cs B001 then let (m, s') := eat001 f s1 in (N.succ m, s') else (0%N, s) … +1 lines	L470	new
83	Lemma	`eat001_spec`	Lemma eat001_spec fuel: forall s m s', eat001 fuel s = (m, s') -> sdn s = B001^^(N.to_nat m) *> sdn s'.	L477	new
84	Fixpoint	`allzero`	Fixpoint allzero (s:sd) : bool := match s with [] => true \| (u,_)::r => if allz u then allzero r else false end.	L491	new
85	Lemma	`allzero_spec`	Lemma allzero_spec s: allzero s = true -> sdn s = const S0.	L492	new
86	Definition	`isK`	Definition isK (c:cfg) : option (sd * N * N) := let '(q, Ls, Rs, d) := c in match d with DL => None \| DR => if qeqb q E then let (y, L1) := pop Ls in if seqb y S0 then … +8 lines	L499	new
87	Lemma	`isK_spec`	Lemma isK_spec c w b cc: isK c = Some (w, b, cc) -> cdn c = K (sdn w) (N.to_nat b) (N.to_nat cc).	L514	new
88	Inductive	`res`	Inductive res := Halt \| Kf (w:sd) (b c:N) \| Fuel (c:cfg).	L532	new
89	Definition	`step1`	Definition step1 (bmin:N) (c:cfg) : res := match mstep c with \| MHalt => Halt \| MOk c' => match isK c' with Some (w, b, cc) => if N.leb bmin b then Kf w b cc else Fuel c' \| None => Fuel c' end end.	L533	new
90	Fixpoint	`urun`	Fixpoint urun (bmin:N) (p:positive) (c:cfg) : res := match p with \| xH => step1 bmin c \| xO p' => match urun bmin p' c with Fuel c' => urun bmin p' c' \| x => x end \| xI p' => match step1 bmin c with Fuel c' => match urun bmin p' c' with Fuel c'' => urun bmin p' c'' \| x => x end \| x => x end end.	L536	new
91	Definition	`rok`	Definition rok (c:cfg) (r:res) : Prop := match r with \| Halt => halts tm (cdn c) \| Kf w b cc => cdn c -->* K (sdn w) (N.to_nat b) (N.to_nat cc) \| Fuel c' => cdn c -->* cdn c' end.	L541	new
92	Lemma	`rok_trans`	Lemma rok_trans c c' r: cdn c -->* cdn c' -> rok c' r -> rok c r.	L546	new
93	Lemma	`step1_spec`	Lemma step1_spec bmin c: rok c (step1 bmin c).	L554	new
94	Lemma	`urun_spec`	Lemma urun_spec bmin p: forall c, rok c (urun bmin p c).	L561	new
95	Definition	`krec`	Definition krec := (sd * N * N)%type.	L573	new
96	Definition	`kden`	Definition kden (k:krec) : Q * tape := let '(w, b, c) := k in K (sdn w) (N.to_nat b) (N.to_nat c).	L574	new
97	Definition	`bellsd`	Definition bellsd (b c:N) : sd := [([S1;S0;S1],1%N); (B001,b); ([S0;S0;S0;S1],1%N); (B001,c)].	L575	new
98	Definition	`kcfg`	Definition kcfg (k:krec) : cfg := let '(w, b, c) := k in (E, push w S0, bellsd b c, DR).	L576	new
99	Lemma	`kcfg_spec`	Lemma kcfg_spec k: cdn (kcfg k) = kden k.	L577	new
100	Definition	`dg_of`	Definition dg_of (cs:list Sym) : option dg := match cs with \| [S1;S0;S0] => Some Dm \| [S0;S0;S0] => Some D0 \| [S1;S0;S1] => Some D1 \| [S0;S0;S1] => Some D2 \| _ => None end.	L583	new
101	Lemma	`dg_of_spec`	Lemma dg_of_spec cs d: dg_of cs = Some d -> cs = dcell d.	L585	new
102	Fixpoint	`split`	Fixpoint split (k:nat) (s:sd) : list dg * sd := match k with O => ([], s) \| S k' => let (cs, s1) := pop3 s in match dg_of cs with Some d => let (D, H) := split k' s1 in (d::D, H) \| None => ([], s) end end.	L594	new
103	Lemma	`split_spec`	Lemma split_spec k: forall s D H, split k s = (D, H) -> sdn s = cells D *> sdn H.	L597	new
104	Fixpoint	`pushd`	Fixpoint pushd (D:list dg) (H:sd) : sd := match D with [] => H \| d::D' => push_block (pushd D' H) (dcell d) 1%N end.	L605	new
105	Lemma	`pushd_spec`	Lemma pushd_spec D H: sdn (pushd D H) = cells D *> sdn H.	L606	new
106	Definition	`propose`	Definition propose (D:list dg) (b:N) : N := N.min b (Z.to_N (maxv (length D) - val D)%Z).	L613	adapted
107	Definition	`batch`	Definition batch (k:krec) : option krec := let '(w, b, c) := k in let (D, H) := split 16 w in let n := propose D b in if N.eqb n 0 then None else if N.leb n b then … +4 lines	L615	adapted
108	Lemma	`batch_spec`	Lemma batch_spec k k': batch k = Some k' -> kden k -->* kden k'.	L626	adapted
109	Definition	`FUEL`	Definition FUEL : positive := 65535%positive.	L641	new
110	Definition	`fromres`	Definition fromres (k:krec) (r:res) : krec + unit := match r with \| Kf w b c => inl (w, b, c) \| Halt => inr tt \| Fuel _ => inl k end.	L642	new
111	Definition	`next`	Definition next (k:krec) : krec + unit := let '(w, b, c) := k in if N.eqb b 0 then fromres k (urun 1 FUEL (kcfg k)) else match batch k with Some k' => inl k' \| None => fromres k (urun 0 FUEL (kcfg k)) end.	L644	adapted
112	Lemma	`fromres_spec`	Lemma fromres_spec k r: rok (kcfg k) r -> match fromres k r with inl k' => kden k -->* kden k' \| inr _ => halts tm (kden k) end.	L649	new
113	Lemma	`next_spec`	Lemma next_spec k: match next k with inl k' => kden k -->* kden k' \| inr _ => halts tm (kden k) end.	L658	new
114	Definition	`run`	Definition run (T:N) (k:krec) : krec + unit := N_iter_until next (inl k) T.	L666	new
115	Lemma	`run_ok`	Lemma run_ok T k k': run T k = inl k' -> kden k -->* kden k'.	L667	new
116	Lemma	`run_halt`	Lemma run_halt T k: run T k = inr tt -> halts tm (kden k).	L678	new
117	Definition	`k0`	Definition k0 : krec := ([], 0%N, 2%N).	L690	new
118	Lemma	`init`	Lemma init: c0 -->* kden k0.	L691	adapted
119	Fixpoint	`pcells`	Fixpoint pcells (p:positive) : list Sym := match p with xH => [] \| xO p' => S0 :: pcells p' \| xI p' => S1 :: pcells p' end.	L695	new
120	Definition	`ncells`	Definition ncells (n:N) : list Sym := match n with N0 => [] \| Npos p => pcells p end.	L696	new
121	Fixpoint	`mksd`	Fixpoint mksd (l:list N) : sd := match l with u::n::l' => (ncells u, n) :: mksd l' \| _ => [] end.	L697	new
122	Definition	`mk`	Definition mk (l:list N) (b c:N) : krec := (mksd l, b, c).	L698	new
123	Definition	`k1`	Definition k1 := mk [2;1;12;1;13;1;12;1;13;1] 2528 3.	L702	new
124	Lemma	`s1`	Lemma s1: run 6494 k0 = inl k1.	L703	new
125	Definition	`k2`	Definition k2 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;1] 4857 11.	L704	new
126	Lemma	`s2`	Lemma s2: run 6937 k1 = inl k2.	L705	new
127	Definition	`k3`	Definition k3 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 7170 4.	L706	new
128	Lemma	`s3`	Lemma s3: run 7348 k2 = inl k3.	L707	new
129	Definition	`k4`	Definition k4 := mk [9;2;5;1;6;1;13;1;12;1] 9214 3.	L708	new
130	Lemma	`s4`	Lemma s4: run 5826 k3 = inl k4.	L709	new
131	Definition	`k5`	Definition k5 := mk [2;1;9;1;13;1;9;1;12;1;13;1;9;1;13;1] 11454 3.	L710	new
132	Lemma	`s5`	Lemma s5: run 6375 k4 = inl k5.	L711	new
133	Definition	`k6`	Definition k6 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;1;3;1;2;1;12;1;9;1] 13060 354.	L712	new
134	Lemma	`s6`	Lemma s6: run 6719 k5 = inl k6.	L713	new
135	Definition	`k7`	Definition k7 := mk [3;1;13;1;9;1;12;1;8;1;13;1] 15552 3.	L714	new
136	Lemma	`s7`	Lemma s7: run 7621 k6 = inl k7.	L715	new
137	Definition	`k8`	Definition k8 := mk [3;1;2;2;9;3;2;1;13;1;8;1;13;1] 17536 97.	L716	new
138	Lemma	`s8`	Lemma s8: run 7578 k7 = inl k8.	L717	new
139	Definition	`k9`	Definition k9 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 11796 6984.	L718	new
140	Lemma	`s9`	Lemma s9: run 3824 k8 = inl k9.	L719	new
141	Definition	`k10`	Definition k10 := mk [3;1;9;1;13;1;9;1;13;2;8;1;13;1] 20426 2.	L720	new
142	Lemma	`s10`	Lemma s10: run 5603 k9 = inl k10.	L721	new
143	Definition	`k11`	Definition k11 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;4;3;1] 21673 1019.	L722	new
144	Lemma	`s11`	Lemma s11: run 7460 k10 = inl k11.	L723	new
145	Definition	`k12`	Definition k12 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;1;3;1] 18685 6164.	L724	new
146	Lemma	`s12`	Lemma s12: run 7584 k11 = inl k12.	L725	new
147	Definition	`k13`	Definition k13 := mk [3;1;2;2;9;5;2;1;13;1] 24853 2197.	L726	new
148	Lemma	`s13`	Lemma s13: run 7678 k12 = inl k13.	L727	new
149	Definition	`k14`	Definition k14 := mk [4;1;4;1;9;1;13;2;12;1;13;1] 29274 3.	L728	new
150	Lemma	`s14`	Lemma s14: run 7294 k13 = inl k14.	L729	new
151	Definition	`k15`	Definition k15 := mk [3;1;2;2;9;5;2;1;9;1;13;1] 29305 2203.	L730	new
152	Lemma	`s15`	Lemma s15: run 7376 k14 = inl k15.	L731	new
153	Definition	`k16`	Definition k16 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;5;3;1] 33283 5.	L732	new
154	Lemma	`s16`	Lemma s16: run 5499 k15 = inl k16.	L733	new
155	Definition	`k17`	Definition k17 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;5;3;1] 33430 214.	L734	new
156	Lemma	`s17`	Lemma s17: run 1042 k16 = inl k17.	L735	new
157	Definition	`k18`	Definition k18 := mk [3;1;2;1;4;1;9;1;8;2;12;1;9;1;13;1] 35462 2.	L736	new
158	Lemma	`s18`	Lemma s18: run 5752 k17 = inl k18.	L737	new
159	Definition	`k19`	Definition k19 := mk [2;1;13;2] 37170 6.	L738	new
160	Lemma	`s19`	Lemma s19: run 5301 k18 = inl k19.	L739	new
161	Definition	`k20`	Definition k20 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 38739 75.	L740	new
162	Lemma	`s20`	Lemma s20: run 5358 k19 = inl k20.	L741	new
163	Definition	`k21`	Definition k21 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 38839 190.	L742	new
164	Lemma	`s21`	Lemma s21: run 826 k20 = inl k21.	L743	new
165	Definition	`k22`	Definition k22 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;2;3;1;2;1;3;1] 38217 1034.	L744	new
166	Lemma	`s22`	Lemma s22: run 728 k21 = inl k22.	L745	new
167	Definition	`k23`	Definition k23 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;2;3;1;2;1;3;1] 39407 15.	L746	new
168	Lemma	`s23`	Lemma s23: run 680 k22 = inl k23.	L747	new
169	Definition	`k24`	Definition k24 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2;2;1;3;2;2;1;3;1] 39554 3.	L748	new
170	Lemma	`s24`	Lemma s24: run 478 k23 = inl k24.	L749	new
171	Definition	`k25`	Definition k25 := mk [3;1;2;2;3;1;2;4;3;2;9;1;12;1;8;1;13;1] 41242 7.	L750	new
172	Lemma	`s25`	Lemma s25: run 4734 k24 = inl k25.	L751	new
173	Definition	`k26`	Definition k26 := mk [5;1;6;1;13;3;12;2] 42423 3.	L752	new
174	Lemma	`s26`	Lemma s26: run 3423 k25 = inl k26.	L753	new
175	Definition	`k27`	Definition k27 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 43651 6.	L754	new
176	Lemma	`s27`	Lemma s27: run 3842 k26 = inl k27.	L755	new
177	Definition	`k28`	Definition k28 := mk [3;1;12;1;9;1;12;2;8;1;9;2;13;1] 45522 2.	L756	new
178	Lemma	`s28`	Lemma s28: run 6221 k27 = inl k28.	L757	new
179	Definition	`k29`	Definition k29 := mk [2;2;6;1;12;1;9;2;8;1;13;1;8;1;13;1] 47584 2.	L758	new
180	Lemma	`s29`	Lemma s29: run 7296 k28 = inl k29.	L759	new
181	Definition	`k30`	Definition k30 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 33066 16541.	L760	new
182	Lemma	`s30`	Lemma s30: run 6943 k29 = inl k30.	L761	new
183	Definition	`k31`	Definition k31 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1] 51554 14.	L762	new
184	Lemma	`s31`	Lemma s31: run 6927 k30 = inl k31.	L763	new
185	Definition	`k32`	Definition k32 := mk [7;1;6;1;8;1;12;1;13;2;9;1;12;2] 53490 2.	L764	new
186	Lemma	`s32`	Lemma s32: run 7379 k31 = inl k32.	L765	new
187	Definition	`k33`	Definition k33 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;13;1;9;1;13;1] 55495 66.	L766	new
188	Lemma	`s33`	Lemma s33: run 7664 k32 = inl k33.	L767	new
189	Definition	`k34`	Definition k34 := mk [2;2;6;1;9;2;12;1;13;1;8;2;13;1] 57511 2.	L768	new
190	Lemma	`s34`	Lemma s34: run 7597 k33 = inl k34.	L769	new
191	Definition	`k35`	Definition k35 := mk [7;1;6;1;9;1;13;1;9;1;13;1;8;2;13;1] 59539 2.	L770	new
192	Lemma	`s35`	Lemma s35: run 7700 k34 = inl k35.	L771	new
193	Definition	`k36`	Definition k36 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;5;1;6;1;13;1;12;1;13;1] 61467 29.	L772	new
194	Lemma	`s36`	Lemma s36: run 7562 k35 = inl k36.	L773	new
195	Definition	`k37`	Definition k37 := mk [3;1;9;1;13;1;9;1;8;1;12;1;9;1;12;1;13;1] 63602 2.	L774	new
196	Lemma	`s37`	Lemma s37: run 8077 k36 = inl k37.	L775	new
197	Definition	`k38`	Definition k38 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 65607 38.	L776	new
198	Lemma	`s38`	Lemma s38: run 8114 k37 = inl k38.	L777	new
199	Definition	`k39`	Definition k39 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 66130 9.	L778	new
200	Lemma	`s39`	Lemma s39: run 1823 k38 = inl k39.	L779	new
201	Definition	`k40`	Definition k40 := mk [3;1;2;2;9;4;2;1;9;2;8;1;9;2;12;1] 67466 362.	L780	new
202	Lemma	`s40`	Lemma s40: run 5645 k39 = inl k40.	L781	new
203	Definition	`k41`	Definition k41 := mk [9;1;5;1;6;1] 69415 3.	L782	new
204	Lemma	`s41`	Lemma s41: run 6106 k40 = inl k41.	L783	new
205	Definition	`k42`	Definition k42 := mk [2;1;3;1;2;3;12;1;4;1;13;1;8;2;9;1;8;1;13;1] 71443 2.	L784	new
206	Lemma	`s42`	Lemma s42: run 7526 k41 = inl k42.	L785	new
207	Definition	`k43`	Definition k43 := mk [2;1;13;1;12;1;13;1] 73359 5.	L786	new
208	Lemma	`s43`	Lemma s43: run 7452 k42 = inl k43.	L787	new
209	Definition	`k44`	Definition k44 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;2;2;1;3;1] 68444 6798.	L788	new
210	Lemma	`s44`	Lemma s44: run 6820 k43 = inl k44.	L789	new
211	Definition	`k45`	Definition k45 := mk [3;1;2;2;9;3;3;1;2;1;3;1;2;1;9;2] 76609 34.	L790	new
212	Lemma	`s45`	Lemma s45: run 5182 k44 = inl k45.	L791	new
213	Definition	`k46`	Definition k46 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 78581 7.	L792	new
214	Lemma	`s46`	Lemma s46: run 7356 k45 = inl k46.	L793	new
215	Definition	`k47`	Definition k47 := mk [7;1;6;1;9;1;13;2;9;1;12;1;9;1;12;1] 80412 2.	L794	new
216	Lemma	`s47`	Lemma s47: run 7418 k46 = inl k47.	L795	new
217	Definition	`k48`	Definition k48 := mk [2;2;4;1;8;2;13;1;9;2;8;1;12;1] 82518 2.	L796	new
218	Lemma	`s48`	Lemma s48: run 7550 k47 = inl k48.	L797	new
219	Definition	`k49`	Definition k49 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;4;1;4;1;12;1;9;1;12;1] 84574 3.	L798	new
220	Lemma	`s49`	Lemma s49: run 7450 k48 = inl k49.	L799	new
221	Definition	`k50`	Definition k50 := mk [3;1;2;2;9;2;3;1;2;4;3;2;13;2] 86526 59.	L800	new
222	Lemma	`s50`	Lemma s50: run 7947 k49 = inl k50.	L801	new
223	Definition	`k51`	Definition k51 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;13;2] 88685 27.	L802	new
224	Lemma	`s51`	Lemma s51: run 8124 k50 = inl k51.	L803	new
225	Definition	`k52`	Definition k52 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 90749 5.	L804	new
226	Lemma	`s52`	Lemma s52: run 7913 k51 = inl k52.	L805	new
227	Definition	`k53`	Definition k53 := mk [3;1;2;2;9;2;2;1;13;3;12;1;13;1] 92856 26.	L806	new
228	Lemma	`s53`	Lemma s53: run 7842 k52 = inl k53.	L807	new
229	Definition	`k54`	Definition k54 := mk [3;1;4;1;4;1;4;1;9;1;12;1;13;1;9;1;12;1;13;1] 94810 2.	L808	new
230	Lemma	`s54`	Lemma s54: run 7953 k53 = inl k54.	L809	new
231	Definition	`k55`	Definition k55 := mk [3;1;2;3;9;2;13;1;9;2;12;1;13;1] 96781 6.	L810	new
232	Lemma	`s55`	Lemma s55: run 8137 k54 = inl k55.	L811	new
233	Definition	`k56`	Definition k56 := mk [2;1;13;1;9;2;13;1;9;1;13;1] 98898 3.	L812	new
234	Lemma	`s56`	Lemma s56: run 7862 k55 = inl k56.	L813	new
235	Definition	`k57`	Definition k57 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;4;3;1] 100517 389.	L814	new
236	Lemma	`s57`	Lemma s57: run 7388 k56 = inl k57.	L815	new
237	Definition	`k58`	Definition k58 := mk [3;1;5;1;7;1;6;1;12;2;13;1;12;1;13;1] 102910 2.	L816	new
238	Lemma	`s58`	Lemma s58: run 7748 k57 = inl k58.	L817	new
239	Definition	`k59`	Definition k59 := mk [3;1;2;2;9;4;2;1;13;1] 104328 639.	L818	new
240	Lemma	`s59`	Lemma s59: run 7994 k58 = inl k59.	L819	new
241	Definition	`k60`	Definition k60 := mk [2;1;3;1;2;1;3;1;12;1;8;1;12;1;13;1;12;2;13;1] 106959 2.	L820	new
242	Lemma	`s60`	Lemma s60: run 7570 k59 = inl k60.	L821	new
243	Definition	`k61`	Definition k61 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;3;9;1;13;1] 108970 9.	L822	new
244	Lemma	`s61`	Lemma s61: run 7545 k60 = inl k61.	L823	new
245	Definition	`k62`	Definition k62 := mk [3;1;2;2;9;2;2;1;9;2;12;2;13;1] 111006 22.	L824	new
246	Lemma	`s62`	Lemma s62: run 7475 k61 = inl k62.	L825	new
247	Definition	`k63`	Definition k63 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1] 113172 5.	L826	new
248	Lemma	`s63`	Lemma s63: run 7694 k62 = inl k63.	L827	new
249	Definition	`k64`	Definition k64 := mk [3;1;2;2;9;2;3;1;2;4;3;1;2;1;9;1;12;1] 115206 60.	L828	new
250	Lemma	`s64`	Lemma s64: run 7436 k63 = inl k64.	L829	new
251	Definition	`k65`	Definition k65 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 116881 380.	L830	new
252	Lemma	`s65`	Lemma s65: run 7491 k64 = inl k65.	L831	new
253	Definition	`k66`	Definition k66 := mk [2;1;9;2;8;1;9;3;13;1;8;1;12;1] 119273 3.	L832	new
254	Lemma	`s66`	Lemma s66: run 7454 k65 = inl k66.	L833	new
255	Definition	`k67`	Definition k67 := mk [2;1;9;1;12;1;9;1;12;1] 121415 5.	L834	new
256	Lemma	`s67`	Lemma s67: run 7336 k66 = inl k67.	L835	new
257	Definition	`k68`	Definition k68 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;12;1;13;1] 123482 6.	L836	new
258	Lemma	`s68`	Lemma s68: run 7404 k67 = inl k68.	L837	new
259	Definition	`k69`	Definition k69 := mk [3;1;2;2;9;4;3;1;2;4;3;2] 125323 260.	L838	new
260	Lemma	`s69`	Lemma s69: run 7599 k68 = inl k69.	L839	new
261	Definition	`k70`	Definition k70 := mk [3;1;13;1;12;1;8;1;12;1;8;1;9;1;12;1] 127747 3.	L840	new
262	Lemma	`s70`	Lemma s70: run 7473 k69 = inl k70.	L841	new
263	Definition	`k71`	Definition k71 := mk [3;1;2;2;9;3;3;1;2;1;3;1;2;1;12;1] 129895 12.	L842	new
264	Lemma	`s71`	Lemma s71: run 7633 k70 = inl k71.	L843	new
265	Definition	`k72`	Definition k72 := mk [3;1;2;1;4;1;12;1;13;2;9;3;13;1;9;1;12;1] 131925 2.	L844	new
266	Lemma	`s72`	Lemma s72: run 6403 k71 = inl k72.	L845	new
267	Definition	`k73`	Definition k73 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 133356 11.	L846	new
268	Lemma	`s73`	Lemma s73: run 4443 k72 = inl k73.	L847	new
269	Definition	`k74`	Definition k74 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;1;3;1] 135107 5.	L848	new
270	Lemma	`s74`	Lemma s74: run 5830 k73 = inl k74.	L849	new
271	Definition	`k75`	Definition k75 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 136586 10.	L850	new
272	Lemma	`s75`	Lemma s75: run 5232 k74 = inl k75.	L851	new
273	Definition	`k76`	Definition k76 := mk [2;1;12;1;13;1;8;1;12;1;8;1;13;1] 138568 3.	L852	new
274	Lemma	`s76`	Lemma s76: run 7025 k75 = inl k76.	L853	new
275	Definition	`k77`	Definition k77 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 140195 125.	L854	new
276	Lemma	`s77`	Lemma s77: run 5548 k76 = inl k77.	L855	new
277	Definition	`k78`	Definition k78 := mk [3;1;9;1;13;3;8;1;9;2;13;1] 141966 2.	L856	new
278	Lemma	`s78`	Lemma s78: run 5279 k77 = inl k78.	L857	new
279	Definition	`k79`	Definition k79 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;10;3;1] 143591 130.	L858	new
280	Lemma	`s79`	Lemma s79: run 6221 k78 = inl k79.	L859	new
281	Definition	`k80`	Definition k80 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;4;3;1] 138802 5164.	L860	new
282	Lemma	`s80`	Lemma s80: run 1018 k79 = inl k80.	L861	new
283	Definition	`k81`	Definition k81 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;2;2;1;3;1] 142369 1768.	L862	new
284	Lemma	`s81`	Lemma s81: run 720 k80 = inl k81.	L863	new
285	Definition	`k82`	Definition k82 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;5;3;1;2;1;3;1] 144048 260.	L864	new
286	Lemma	`s82`	Lemma s82: run 660 k81 = inl k82.	L865	new
287	Definition	`k83`	Definition k83 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;2;3;1;2;1;3;1] 142040 2457.	L866	new
288	Lemma	`s83`	Lemma s83: run 782 k82 = inl k83.	L867	new
289	Definition	`k84`	Definition k84 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;3;3;1;2;1;3;1] 142601 2026.	L868	new
290	Lemma	`s84`	Lemma s84: run 613 k83 = inl k84.	L869	new
291	Definition	`k85`	Definition k85 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;2;2;1;3;1] 139135 5611.	L870	new
292	Lemma	`s85`	Lemma s85: run 545 k84 = inl k85.	L871	new
293	Definition	`k86`	Definition k86 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 144489 391.	L872	new
294	Lemma	`s86`	Lemma s86: run 563 k85 = inl k86.	L873	new
295	Definition	`k87`	Definition k87 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;10;3;1] 144569 422.	L874	new
296	Lemma	`s87`	Lemma s87: run 437 k86 = inl k87.	L875	new
297	Definition	`k88`	Definition k88 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;10;3;2;2;1;3;1] 142015 3076.	L876	new
298	Lemma	`s88`	Lemma s88: run 437 k87 = inl k88.	L877	new
299	Definition	`k89`	Definition k89 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;2;2;1;3;1] 144941 238.	L878	new
300	Lemma	`s89`	Lemma s89: run 371 k88 = inl k89.	L879	new
301	Definition	`k90`	Definition k90 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 141126 4130.	L880	new
302	Lemma	`s90`	Lemma s90: run 390 k89 = inl k90.	L881	new
303	Definition	`k91`	Definition k91 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;3;3;1;2;2;3;1;2;1;3;1] 144062 1300.	L882	new
304	Lemma	`s91`	Lemma s91: run 356 k90 = inl k91.	L883	new
305	Definition	`k92`	Definition k92 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;5;3;2;2;1;3;1] 140109 5361.	L884	new
306	Lemma	`s92`	Lemma s92: run 385 k91 = inl k92.	L885	new
307	Definition	`k93`	Definition k93 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 145576 3.	L886	new
308	Lemma	`s93`	Lemma s93: run 442 k92 = inl k93.	L887	new
309	Definition	`k94`	Definition k94 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;4;3;1] 138650 7006.	L888	new
310	Lemma	`s94`	Lemma s94: run 364 k93 = inl k94.	L889	new
311	Definition	`k95`	Definition k95 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 144465 1295.	L890	new
312	Lemma	`s95`	Lemma s95: run 384 k94 = inl k95.	L891	new
313	Definition	`k96`	Definition k96 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;4;3;1] 142036 3832.	L892	new
314	Lemma	`s96`	Lemma s96: run 432 k95 = inl k96.	L893	new
315	Definition	`k97`	Definition k97 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;2;2;1;3;1] 145689 323.	L894	new
316	Lemma	`s97`	Lemma s97: run 529 k96 = inl k97.	L895	new
317	Definition	`k98`	Definition k98 := mk [3;1;2;2;9;2;3;1;2;4;3;1;5;1;6;1;9;1;13;1;9;6;8;1;2;2;3;1] 146505 40.	L896	new
318	Lemma	`s98`	Lemma s98: run 1798 k97 = inl k98.	L897	new
319	Definition	`k99`	Definition k99 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;2] 148043 10.	L898	new
320	Lemma	`s99`	Lemma s99: run 5409 k98 = inl k99.	L899	new
321	Definition	`k100`	Definition k100 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;2;3;1] 149635 109.	L900	new
322	Lemma	`s100`	Lemma s100: run 5929 k99 = inl k100.	L901	new
323	Definition	`k101`	Definition k101 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 150455 4.	L902	new
324	Lemma	`s101`	Lemma s101: run 2894 k100 = inl k101.	L903	new
325	Definition	`k102`	Definition k102 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 152515 3.	L904	new
326	Lemma	`s102`	Lemma s102: run 7353 k101 = inl k102.	L905	new
327	Definition	`k103`	Definition k103 := mk [3;1;9;1;13;1;12;1;13;1;9;2;12;1;13;1] 154596 2.	L906	new
328	Lemma	`s103`	Lemma s103: run 7519 k102 = inl k103.	L907	new
329	Definition	`k104`	Definition k104 := mk [3;1;2;3;3;1;6;1;8;1;12;3;13;1;12;1] 156540 5.	L908	new
330	Lemma	`s104`	Lemma s104: run 7129 k103 = inl k104.	L909	new
331	Definition	`k105`	Definition k105 := mk [3;1;2;2;9;5;3;1;2;1;3;2;13;1] 158273 348.	L910	new
332	Lemma	`s105`	Lemma s105: run 7485 k104 = inl k105.	L911	new
333	Definition	`k106`	Definition k106 := mk [7;1;6;1;5;1;7;1;6;1;8;2;9;1;8;1;13;2] 160683 2.	L912	new
334	Lemma	`s106`	Lemma s106: run 7397 k105 = inl k106.	L913	new
335	Definition	`k107`	Definition k107 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 162703 146.	L914	new
336	Lemma	`s107`	Lemma s107: run 7551 k106 = inl k107.	L915	new
337	Definition	`k108`	Definition k108 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;5;3;1] 164371 4.	L916	new
338	Lemma	`s108`	Lemma s108: run 5063 k107 = inl k108.	L917	new
339	Definition	`k109`	Definition k109 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 164597 430.	L918	new
340	Lemma	`s109`	Lemma s109: run 1836 k108 = inl k109.	L919	new
341	Definition	`k110`	Definition k110 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 166098 129.	L920	new
342	Lemma	`s110`	Lemma s110: run 3905 k109 = inl k110.	L921	new
343	Definition	`k111`	Definition k111 := mk [2;1;9;4;3;1;2;1;3;1;9;1;13;2;9;2;13;1] 167936 2.	L922	new
344	Lemma	`s111`	Lemma s111: run 5245 k110 = inl k111.	L923	new
345	Definition	`k112`	Definition k112 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 170042 4.	L924	new
346	Lemma	`s112`	Lemma s112: run 6996 k111 = inl k112.	L925	new
347	Definition	`k113`	Definition k113 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 172080 45.	L926	new
348	Lemma	`s113`	Lemma s113: run 7206 k112 = inl k113.	L927	new
349	Definition	`k114`	Definition k114 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 172527 332.	L928	new
350	Lemma	`s114`	Lemma s114: run 2044 k113 = inl k114.	L929	new
351	Definition	`k115`	Definition k115 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;1] 174209 4.	L930	new
352	Lemma	`s115`	Lemma s115: run 4191 k114 = inl k115.	L931	new
353	Definition	`k116`	Definition k116 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 174249 1540.	L932	new
354	Lemma	`s116`	Lemma s116: run 5070 k115 = inl k116.	L933	new
355	Definition	`k117`	Definition k117 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 177705 19.	L934	new
356	Lemma	`s117`	Lemma s117: run 7127 k116 = inl k117.	L935	new
357	Definition	`k118`	Definition k118 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 178187 1507.	L936	new
358	Lemma	`s118`	Lemma s118: run 7332 k117 = inl k118.	L937	new
359	Definition	`k119`	Definition k119 := mk [3;1;12;1;9;1;8;1;9;3;12;1;13;1;12;1] 180335 2.	L938	new
360	Lemma	`s119`	Lemma s119: run 2460 k118 = inl k119.	L939	new
361	Definition	`k120`	Definition k120 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 181779 259.	L940	new
362	Lemma	`s120`	Lemma s120: run 6487 k119 = inl k120.	L941	new
363	Definition	`k121`	Definition k121 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;4;3;2;8;1;13;2] 183784 130.	L942	new
364	Lemma	`s121`	Lemma s121: run 7311 k120 = inl k121.	L943	new
365	Definition	`k122`	Definition k122 := mk [11;1;7;1;6;1;5;1;7;1;6;1;12;1;9;1;12;1;13;1;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 185686 2.	L944	new
366	Lemma	`s122`	Lemma s122: run 7123 k121 = inl k122.	L945	new
367	Definition	`k123`	Definition k123 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 181634 5435.	L946	new
368	Lemma	`s123`	Lemma s123: run 5537 k122 = inl k123.	L947	new
369	Definition	`k124`	Definition k124 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1;12;1] 188972 4.	L948	new
370	Lemma	`s124`	Lemma s124: run 7381 k123 = inl k124.	L949	new
371	Definition	`k125`	Definition k125 := mk [2;1;3;1;2;1;3;1;2;1;4;1;13;1;8;1;9;1;13;1;12;1;13;2] 190798 2.	L950	new
372	Lemma	`s125`	Lemma s125: run 7262 k124 = inl k125.	L951	new
373	Definition	`k126`	Definition k126 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 163913 28717.	L952	new
374	Lemma	`s126`	Lemma s126: run 7336 k125 = inl k126.	L953	new
375	Definition	`k127`	Definition k127 := mk [2;1;13;1;9;2;12;1;8;1;9;1;13;1] 194530 2.	L954	new
376	Lemma	`s127`	Lemma s127: run 7406 k126 = inl k127.	L955	new
377	Definition	`k128`	Definition k128 := mk [5;1;6;1;9;3;13;1;12;1;13;1;12;1] 196410 3.	L956	new
378	Lemma	`s128`	Lemma s128: run 7453 k127 = inl k128.	L957	new
379	Definition	`k129`	Definition k129 := mk [3;1;9;1;13;1;8;2;12;1;8;1;9;1;13;1] 198263 3.	L958	new
380	Lemma	`s129`	Lemma s129: run 6668 k128 = inl k129.	L959	new
381	Definition	`k130`	Definition k130 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1] 200018 27.	L960	new
382	Lemma	`s130`	Lemma s130: run 6623 k129 = inl k130.	L961	new
383	Definition	`k131`	Definition k131 := mk [2;1;9;2;13;1;8;1;9;1;13;1] 202048 4.	L962	new
384	Lemma	`s131`	Lemma s131: run 7385 k130 = inl k131.	L963	new
385	Definition	`k132`	Definition k132 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 203915 4.	L964	new
386	Lemma	`s132`	Lemma s132: run 7357 k131 = inl k132.	L965	new
387	Definition	`k133`	Definition k133 := mk [3;1;8;3;12;1;8;1;13;1;9;1;13;1] 205814 3.	L966	new
388	Lemma	`s133`	Lemma s133: run 6863 k132 = inl k133.	L967	new
389	Definition	`k134`	Definition k134 := mk [9;3;3;1;2;1;3;2;8;1;13;1] 207715 5.	L968	new
390	Lemma	`s134`	Lemma s134: run 7030 k133 = inl k134.	L969	new
391	Definition	`k135`	Definition k135 := mk [3;1;2;2;9;5;3;1;2;4;3;1;2;1;13;1] 204370 5256.	L970	new
392	Lemma	`s135`	Lemma s135: run 7563 k134 = inl k135.	L971	new
393	Definition	`k136`	Definition k136 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 208742 2756.	L972	new
394	Lemma	`s136`	Lemma s136: run 7836 k135 = inl k136.	L973	new
395	Definition	`k137`	Definition k137 := mk [2;1;9;3;3;1;2;1;3;1;2;1;4;1;13;2;12;1] 213478 2.	L974	new
396	Lemma	`s137`	Lemma s137: run 7675 k136 = inl k137.	L975	new
397	Definition	`k138`	Definition k138 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;1;3;2;13;1;12;1] 215306 6.	L976	new
398	Lemma	`s138`	Lemma s138: run 7358 k137 = inl k138.	L977	new
399	Definition	`k139`	Definition k139 := mk [6;1;4;1;8;1;9;2;12;1;13;1;9;1;13;1] 217224 2.	L978	new
400	Lemma	`s139`	Lemma s139: run 7868 k138 = inl k139.	L979	new
401	Definition	`k140`	Definition k140 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;4;1;4;1;12;1;9;1;13;1] 219166 24.	L980	new
402	Lemma	`s140`	Lemma s140: run 8079 k139 = inl k140.	L981	new
403	Definition	`k141`	Definition k141 := mk [3;1;2;1;4;1;12;2;13;1;12;1;8;1;9;1;8;1;13;1] 221081 2.	L982	new
404	Lemma	`s141`	Lemma s141: run 8075 k140 = inl k141.	L983	new
405	Definition	`k142`	Definition k142 := mk [7;1;6;1;8;1;13;1;9;1;8;2;12;1;9;1;13;1] 222867 2.	L984	new
406	Lemma	`s142`	Lemma s142: run 7203 k141 = inl k142.	L985	new
407	Definition	`k143`	Definition k143 := mk [3;1;2;2;9;6;2;1;9;1] 211289 13543.	L986	new
408	Lemma	`s143`	Lemma s143: run 7687 k142 = inl k143.	L987	new
409	Definition	`k144`	Definition k144 := mk [3;1;4;1;4;1;4;1;13;1;9;1;13;1;9;2;8;1;13;1] 226714 2.	L988	new
410	Lemma	`s144`	Lemma s144: run 7895 k143 = inl k144.	L989	new
411	Definition	`k145`	Definition k145 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;8;1;9;2] 228553 30.	L990	new
412	Lemma	`s145`	Lemma s145: run 8003 k144 = inl k145.	L991	new
413	Definition	`k146`	Definition k146 := mk [3;1;13;1;9;2;13;1;12;1;9;1;13;1] 230363 4.	L992	new
414	Lemma	`s146`	Lemma s146: run 7117 k145 = inl k146.	L993	new
415	Definition	`k147`	Definition k147 := mk [2;2;6;1;9;3;8;1;9;1;8;2;13;1] 232280 2.	L994	new
416	Lemma	`s147`	Lemma s147: run 7695 k146 = inl k147.	L995	new
417	Definition	`k148`	Definition k148 := mk [3;1;2;1;4;1;13;1;9;2;12;1;9;1;8;1;13;1;9;1;12;1] 234154 2.	L996	new
418	Lemma	`s148`	Lemma s148: run 7916 k147 = inl k148.	L997	new
419	Definition	`k149`	Definition k149 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;2;13;1] 236065 18.	L998	new
420	Lemma	`s149`	Lemma s149: run 7953 k148 = inl k149.	L999	new
421	Definition	`k150`	Definition k150 := mk [3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;1;8;1;13;2] 237937 6.	L1000	new
422	Lemma	`s150`	Lemma s150: run 7255 k149 = inl k150.	L1001	new
423	Definition	`k151`	Definition k151 := mk [3;1;9;2;13;1;9;1;13;2;9;1;13;2] 239870 2.	L1002	new
424	Lemma	`s151`	Lemma s151: run 7478 k150 = inl k151.	L1003	new
425	Definition	`k152`	Definition k152 := mk [3;1;12;2;8;1;9;1;12;1;9;1;8;2;13;1] 241791 2.	L1004	new
426	Lemma	`s152`	Lemma s152: run 7712 k151 = inl k152.	L1005	new
427	Definition	`k153`	Definition k153 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 242889 194.	L1006	new
428	Lemma	`s153`	Lemma s153: run 5908 k152 = inl k153.	L1007	new
429	Definition	`k154`	Definition k154 := mk [2;1;12;2;8;1;9;1;13;1;9;3;13;1] 244865 2.	L1008	new
430	Lemma	`s154`	Lemma s154: run 8158 k153 = inl k154.	L1009	new
431	Definition	`k155`	Definition k155 := mk [2;1;13;2;9;2;12;2;9;4;13;2] 246436 4.	L1010	new
432	Lemma	`s155`	Lemma s155: run 6744 k154 = inl k155.	L1011	new
433	Definition	`k156`	Definition k156 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1;9;1;12;1;13;1] 248292 5.	L1012	new
434	Lemma	`s156`	Lemma s156: run 7711 k155 = inl k156.	L1013	new
435	Definition	`k157`	Definition k157 := mk [2;1;12;1;8;2;12;1;9;1;13;1] 250205 2.	L1014	new
436	Lemma	`s157`	Lemma s157: run 8109 k156 = inl k157.	L1015	new
437	Definition	`k158`	Definition k158 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;1;8;1;13;1] 252014 4.	L1016	new
438	Lemma	`s158`	Lemma s158: run 8247 k157 = inl k158.	L1017	new
439	Definition	`k159`	Definition k159 := mk [3;1;2;2;9;4;3;1;2;4;3;1;2;1;13;1] 252149 1767.	L1018	new
440	Lemma	`s159`	Lemma s159: run 8478 k158 = inl k159.	L1019	new
441	Definition	`k160`	Definition k160 := mk [2;2;6;1;8;1;13;2;12;1;8;3;13;1] 255919 2.	L1020	new
442	Lemma	`s160`	Lemma s160: run 8267 k159 = inl k160.	L1021	new
443	Definition	`k161`	Definition k161 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;1] 229298 27914.	L1022	new
444	Lemma	`s161`	Lemma s161: run 5289 k160 = inl k161.	L1023	new
445	Definition	`k162`	Definition k162 := mk [3;1;2;2;3;1;2;2;3;1;2;3;12;1;9;1;8;2;12;1;13;1] 259024 3.	L1024	new
446	Lemma	`s162`	Lemma s162: run 7847 k161 = inl k162.	L1025	new
447	Definition	`k163`	Definition k163 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;3;12;1;13;1] 261014 4.	L1026	new
448	Lemma	`s163`	Lemma s163: run 8395 k162 = inl k163.	L1027	new
449	Definition	`k164`	Definition k164 := mk [2;1;3;1;2;1;3;1;2;1;4;1;12;1;9;2;13;1;8;2;13;1] 262910 2.	L1028	new
450	Lemma	`s164`	Lemma s164: run 7523 k163 = inl k164.	L1029	new
451	Definition	`k165`	Definition k165 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 264449 24.	L1030	new
452	Lemma	`s165`	Lemma s165: run 6222 k164 = inl k165.	L1031	new
453	Definition	`k166`	Definition k166 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 264348 1784.	L1032	new
454	Lemma	`s166`	Lemma s166: run 6883 k165 = inl k166.	L1033	new
455	Definition	`k167`	Definition k167 := mk [3;1;2;2;9;6;2;1;13;1] 257607 10236.	L1034	new
456	Lemma	`s167`	Lemma s167: run 7350 k166 = inl k167.	L1035	new
457	Definition	`k168`	Definition k168 := mk [3;1;2;1;4;1;9;1;13;1;8;1;12;1;8;1;9;1;12;1;13;1] 269743 2.	L1036	new
458	Lemma	`s168`	Lemma s168: run 7577 k167 = inl k168.	L1037	new
459	Definition	`k169`	Definition k169 := mk [3;1;9;3;13;1;9;1;12;1;13;2] 271374 2.	L1038	new
460	Lemma	`s169`	Lemma s169: run 6052 k168 = inl k169.	L1039	new
461	Definition	`k170`	Definition k170 := mk [7;1;6;1;8;1;9;1;13;3;9;2;12;1] 272933 2.	L1040	new
462	Lemma	`s170`	Lemma s170: run 6014 k169 = inl k170.	L1041	new
463	Definition	`k171`	Definition k171 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;1;3;2;13;1] 269499 5291.	L1042	new
464	Lemma	`s171`	Lemma s171: run 6896 k170 = inl k171.	L1043	new
465	Definition	`k172`	Definition k172 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;3] 276499 4.	L1044	new
466	Lemma	`s172`	Lemma s172: run 7571 k171 = inl k172.	L1045	new
467	Definition	`k173`	Definition k173 := mk [3;1;2;2;9;4;3;1;2;1;3;1] 278241 129.	L1046	new
468	Lemma	`s173`	Lemma s173: run 7968 k172 = inl k173.	L1047	new
469	Definition	`k174`	Definition k174 := mk [2;1;5;1;7;1;6;1;9;1;8;2;12;1;8;2;13;1] 280109 2.	L1048	new
470	Lemma	`s174`	Lemma s174: run 7108 k173 = inl k174.	L1049	new
471	Definition	`k175`	Definition k175 := mk [9;1;5;1;6;1;13;1;9;1;8;1;9;2;13;1] 281919 3.	L1050	new
472	Lemma	`s175`	Lemma s175: run 7697 k174 = inl k175.	L1051	new
473	Definition	`k176`	Definition k176 := mk [2;1;3;1;2;1;3;1;2;1;4;1;13;1;12;1;9;2;13;1;12;1;13;1] 283812 2.	L1052	new
474	Lemma	`s176`	Lemma s176: run 8017 k175 = inl k176.	L1053	new
475	Definition	`k177`	Definition k177 := mk [7;1;6;1;9;1;13;1;8;1;13;1;8;2;9;1;8;1;9;2;13;1] 285675 2.	L1054	new
476	Lemma	`s177`	Lemma s177: run 8014 k176 = inl k177.	L1055	new
477	Definition	`k178`	Definition k178 := mk [2;2;4;1;13;1;8;1;13;1;9;1;13;1;8;1;9;1;8;1;13;1] 287390 2.	L1056	new
478	Lemma	`s178`	Lemma s178: run 7372 k177 = inl k178.	L1057	new
479	Definition	`k179`	Definition k179 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1] 288982 4.	L1058	new
480	Lemma	`s179`	Lemma s179: run 6909 k178 = inl k179.	L1059	new
481	Definition	`k180`	Definition k180 := mk [3;1;9;1;8;1;9;1;13;2;12;2;13;1] 290780 2.	L1060	new
482	Lemma	`s180`	Lemma s180: run 7932 k179 = inl k180.	L1061	new
483	Definition	`k181`	Definition k181 := mk [3;1;8;1;9;1;8;1;9;1;8;1;13;1;8;1;13;1] 292452 3.	L1062	new
484	Lemma	`s181`	Lemma s181: run 7307 k180 = inl k181.	L1063	new
485	Definition	`k182`	Definition k182 := mk [8;1;4;1;4;1;12;1;8;1;9;2;13;1] 294220 4.	L1064	new
486	Lemma	`s182`	Lemma s182: run 7637 k181 = inl k182.	L1065	new
487	Definition	`k183`	Definition k183 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 274776 20530.	L1066	new
488	Lemma	`s183`	Lemma s183: run 4530 k182 = inl k183.	L1067	new
489	Definition	`k184`	Definition k184 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;3;3;1;2;1;3;1] 295491 4.	L1068	new
490	Lemma	`s184`	Lemma s184: run 767 k183 = inl k184.	L1069	new
491	Definition	`k185`	Definition k185 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;1;9;1;12;1] 296309 34.	L1070	new
492	Lemma	`s185`	Lemma s185: run 3006 k184 = inl k185.	L1071	new
493	Definition	`k186`	Definition k186 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;2;2;1;3;1] 297414 72.	L1072	new
494	Lemma	`s186`	Lemma s186: run 4176 k185 = inl k186.	L1073	new
495	Definition	`k187`	Definition k187 := mk [3;1;2;2;3;1;2;4;3;2;8;2;13;1;9;1;13;2] 298043 9.	L1074	new
496	Lemma	`s187`	Lemma s187: run 1871 k186 = inl k187.	L1075	new
497	Definition	`k188`	Definition k188 := mk [2;1;3;1;2;1;3;1;9;2;13;3;8;1;13;2] 299891 2.	L1076	new
498	Lemma	`s188`	Lemma s188: run 7267 k187 = inl k188.	L1077	new
499	Definition	`k189`	Definition k189 := mk [3;1;2;3;9;1;13;1;9;2;13;1;9;2;13;1] 301655 5.	L1078	new
500	Lemma	`s189`	Lemma s189: run 7531 k188 = inl k189.	L1079	new
501	Definition	`k190`	Definition k190 := mk [3;1;2;2;3;1;2;4;3;2;9;2;13;2;9;2;13;1] 303512 3.	L1080	new
502	Lemma	`s190`	Lemma s190: run 7346 k189 = inl k190.	L1081	new
503	Definition	`k191`	Definition k191 := mk [2;1;13;1;8;1;12;1;13;1] 305337 6.	L1082	new
504	Lemma	`s191`	Lemma s191: run 6880 k190 = inl k191.	L1083	new
505	Definition	`k192`	Definition k192 := mk [2;2;12;1;4;1;12;1;8;1;12;1;8;1;9;1;13;2] 306632 2.	L1084	new
506	Lemma	`s192`	Lemma s192: run 5200 k191 = inl k192.	L1085	new
507	Definition	`k193`	Definition k193 := mk [2;2;6;1;8;1;13;1;12;1;13;1;8;1;13;1;12;1] 308446 2.	L1086	new
508	Lemma	`s193`	Lemma s193: run 7531 k192 = inl k193.	L1087	new
509	Definition	`k194`	Definition k194 := mk [2;1;12;2;13;1;12;1;13;1;9;1;12;1] 310273 2.	L1088	new
510	Lemma	`s194`	Lemma s194: run 7758 k193 = inl k194.	L1089	new
511	Definition	`k195`	Definition k195 := mk [3;1;13;3;9;2;12;1;9;1;12;1] 312007 3.	L1090	new
512	Lemma	`s195`	Lemma s195: run 7041 k194 = inl k195.	L1091	new
513	Definition	`k196`	Definition k196 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;12;1] 313940 4.	L1092	new
514	Lemma	`s196`	Lemma s196: run 7458 k195 = inl k196.	L1093	new
515	Definition	`k197`	Definition k197 := mk [3;1;2;2;9;2;3;1;2;4;3;2;8;1;9;1;13;2] 315732 20.	L1094	new
516	Lemma	`s197`	Lemma s197: run 7829 k196 = inl k197.	L1095	new
517	Definition	`k198`	Definition k198 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1;12;1;9;2;12;1] 317511 3.	L1096	new
518	Lemma	`s198`	Lemma s198: run 7996 k197 = inl k198.	L1097	new
519	Definition	`k199`	Definition k199 := mk [3;1;2;2;9;5;3;1;2;4;3;2] 312221 7081.	L1098	new
520	Lemma	`s199`	Lemma s199: run 7756 k198 = inl k199.	L1099	new
521	Definition	`k200`	Definition k200 := mk [2;1;13;1;12;2;9;1;13;1;8;1;9;1;12;1] 321065 3.	L1100	new
522	Lemma	`s200`	Lemma s200: run 7845 k199 = inl k200.	L1101	new
523	Definition	`k201`	Definition k201 := mk [3;1;2;2;9;6;3;1;2;4;3;2] 297064 25979.	L1102	new
524	Lemma	`s201`	Lemma s201: run 7838 k200 = inl k201.	L1103	new
525	Definition	`k202`	Definition k202 := mk [2;2;4;1;13;2;9;2;12;2;13;2] 324960 2.	L1104	new
526	Lemma	`s202`	Lemma s202: run 8014 k201 = inl k202.	L1105	new
527	Definition	`k203`	Definition k203 := mk [2;2;6;1;12;1;13;2;12;1;9;1;12;1;9;1;12;1] 326989 2.	L1106	new
528	Lemma	`s203`	Lemma s203: run 8104 k202 = inl k203.	L1107	new
529	Definition	`k204`	Definition k204 := mk [3;1;9;1;13;1;12;1;9;1;8;1;12;2;9;2;13;1] 328957 2.	L1108	new
530	Lemma	`s204`	Lemma s204: run 7332 k203 = inl k204.	L1109	new
531	Definition	`k205`	Definition k205 := mk [3;1;9;1;12;1;8;1;13;1] 330791 4.	L1110	new
532	Lemma	`s205`	Lemma s205: run 6900 k204 = inl k205.	L1111	new
533	Definition	`k206`	Definition k206 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;1;3;1] 329033 3666.	L1112	new
534	Lemma	`s206`	Lemma s206: run 7624 k205 = inl k206.	L1113	new
535	Definition	`k207`	Definition k207 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 334529 107.	L1114	new
536	Lemma	`s207`	Lemma s207: run 7969 k206 = inl k207.	L1115	new
537	Definition	`k208`	Definition k208 := mk [5;1;6;1;13;1;8;1;9;1;13;1;9;1;8;2;12;1] 336542 3.	L1116	new
538	Lemma	`s208`	Lemma s208: run 7600 k207 = inl k208.	L1117	new
539	Definition	`k209`	Definition k209 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;4;3;1] 338502 10.	L1118	new
540	Lemma	`s209`	Lemma s209: run 7415 k208 = inl k209.	L1119	new
541	Definition	`k210`	Definition k210 := mk [3;1;2;4;3;1;2;1;13;3;8;2;13;2] 340501 4.	L1120	new
542	Lemma	`s210`	Lemma s210: run 7631 k209 = inl k210.	L1121	new
543	Definition	`k211`	Definition k211 := mk [3;1;2;2;3;1;2;3;13;1;12;1;9;1;13;3] 342421 15.	L1122	new
544	Lemma	`s211`	Lemma s211: run 8179 k210 = inl k211.	L1123	new
545	Definition	`k212`	Definition k212 := mk [3;1;12;1;9;1;13;1;9;2;13;3] 344452 2.	L1124	new
546	Lemma	`s212`	Lemma s212: run 8066 k211 = inl k212.	L1125	new
547	Definition	`k213`	Definition k213 := mk [3;1;9;1;13;2;9;1;12;1;8;2;13;1] 346312 3.	L1126	new
548	Lemma	`s213`	Lemma s213: run 7823 k212 = inl k213.	L1127	new
549	Definition	`k214`	Definition k214 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1] 348291 6.	L1128	new
550	Lemma	`s214`	Lemma s214: run 8250 k213 = inl k214.	L1129	new
551	Definition	`k215`	Definition k215 := mk [3;1;8;1;13;5] 350327 4.	L1130	new
552	Lemma	`s215`	Lemma s215: run 8413 k214 = inl k215.	L1131	new
553	Definition	`k216`	Definition k216 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 352373 11.	L1132	new
554	Lemma	`s216`	Lemma s216: run 8129 k215 = inl k216.	L1133	new
555	Definition	`k217`	Definition k217 := mk [3;1;2;2;3;1;2;3;9;1;13;1;9;1;8;3;12;1] 354326 8.	L1134	new
556	Lemma	`s217`	Lemma s217: run 8077 k216 = inl k217.	L1135	new
557	Definition	`k218`	Definition k218 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2] 355957 274.	L1136	new
558	Lemma	`s218`	Lemma s218: run 8106 k217 = inl k218.	L1137	new
559	Definition	`k219`	Definition k219 := mk [2;1;12;2;9;1;8;2;13;1;9;1;12;1] 358150 3.	L1138	new
560	Lemma	`s219`	Lemma s219: run 8131 k218 = inl k219.	L1139	new
561	Definition	`k220`	Definition k220 := mk [3;1;2;2;9;7;3;1;2;1;3;1] 353359 6729.	L1140	new
562	Lemma	`s220`	Lemma s220: run 8205 k219 = inl k220.	L1141	new
563	Definition	`k221`	Definition k221 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;1;13;2;12;1;13;1] 361901 30.	L1142	new
564	Lemma	`s221`	Lemma s221: run 7454 k220 = inl k221.	L1143	new
565	Definition	`k222`	Definition k222 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 363710 34.	L1144	new
566	Lemma	`s222`	Lemma s222: run 7510 k221 = inl k222.	L1145	new
567	Definition	`k223`	Definition k223 := mk [2;1;9;1;12;1;13;1;9;1;12;2;13;2] 365668 3.	L1146	new
568	Lemma	`s223`	Lemma s223: run 8000 k222 = inl k223.	L1147	new
569	Definition	`k224`	Definition k224 := mk [3;1;13;1;12;2;8;1;12;1;13;1] 367659 3.	L1148	new
570	Lemma	`s224`	Lemma s224: run 8061 k223 = inl k224.	L1149	new
571	Definition	`k225`	Definition k225 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;2] 369540 29.	L1150	new
572	Lemma	`s225`	Lemma s225: run 7640 k224 = inl k225.	L1151	new
573	Definition	`k226`	Definition k226 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;8;1;4;1;4;1;12;1] 371474 11.	L1152	new
574	Lemma	`s226`	Lemma s226: run 7621 k225 = inl k226.	L1153	new
575	Definition	`k227`	Definition k227 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 373171 266.	L1154	new
576	Lemma	`s227`	Lemma s227: run 7836 k226 = inl k227.	L1155	new
577	Definition	`k228`	Definition k228 := mk [2;1;9;2;13;1;8;1;13;1;9;1;13;2] 375310 4.	L1156	new
578	Lemma	`s228`	Lemma s228: run 8257 k227 = inl k228.	L1157	new
579	Definition	`k229`	Definition k229 := mk [2;1;9;2;13;3] 377246 3.	L1158	new
580	Lemma	`s229`	Lemma s229: run 7851 k228 = inl k229.	L1159	new
581	Definition	`k230`	Definition k230 := mk [2;1;9;2;8;1;9;1;13;2;8;1;9;1;13;1] 379113 3.	L1160	new
582	Lemma	`s230`	Lemma s230: run 7750 k229 = inl k230.	L1161	new
583	Definition	`k231`	Definition k231 := mk [3;1;2;1;4;1;9;1;13;1;9;1;8;1;12;1;9;1;12;1] 381063 2.	L1162	new
584	Lemma	`s231`	Lemma s231: run 8096 k230 = inl k231.	L1163	new
585	Definition	`k232`	Definition k232 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;5;1;6;1;13;1] 383002 7.	L1164	new
586	Lemma	`s232`	Lemma s232: run 8188 k231 = inl k232.	L1165	new
587	Definition	`k233`	Definition k233 := mk [3;1;2;4;3;1;7;1;6;1;12;2;13;2;8;2;12;1] 384853 3.	L1166	new
588	Lemma	`s233`	Lemma s233: run 8167 k232 = inl k233.	L1167	new
589	Definition	`k234`	Definition k234 := mk [9;2;3;1;2;4;3;2;9;2;12;1] 386765 6.	L1168	new
590	Lemma	`s234`	Lemma s234: run 7987 k233 = inl k234.	L1169	new
591	Definition	`k235`	Definition k235 := mk [2;2;6;1;9;1;13;1;12;1;8;1;13;1;8;3;12;1] 388680 2.	L1170	new
592	Lemma	`s235`	Lemma s235: run 8056 k234 = inl k235.	L1171	new
593	Definition	`k236`	Definition k236 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1] 390555 12.	L1172	new
594	Lemma	`s236`	Lemma s236: run 8241 k235 = inl k236.	L1173	new
595	Definition	`k237`	Definition k237 := mk [3;1;12;1;13;1;8;1;12;1;13;3] 392515 2.	L1174	new
596	Lemma	`s237`	Lemma s237: run 8407 k236 = inl k237.	L1175	new
597	Definition	`k238`	Definition k238 := mk [3;1;2;4;3;1;2;1;8;1;9;1;12;1;9;1;8;1;13;2] 394327 3.	L1176	new
598	Lemma	`s238`	Lemma s238: run 7491 k237 = inl k238.	L1177	new
599	Definition	`k239`	Definition k239 := mk [2;2;4;1;12;2;8;1;13;1;9;1;12;1;9;1;12;1] 396086 2.	L1178	new
600	Lemma	`s239`	Lemma s239: run 7040 k238 = inl k239.	L1179	new
601	Definition	`k240`	Definition k240 := mk [3;1;9;1;13;1;12;2;8;1;13;1;8;1;12;1;13;1] 397951 2.	L1180	new
602	Lemma	`s240`	Lemma s240: run 7624 k239 = inl k240.	L1181	new
603	Definition	`k241`	Definition k241 := mk [3;1;8;1;12;1;8;1;13;3;12;1;13;1] 399796 2.	L1182	new
604	Lemma	`s241`	Lemma s241: run 8069 k240 = inl k241.	L1183	new
605	Definition	`k242`	Definition k242 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 401538 4.	L1184	new
606	Lemma	`s242`	Lemma s242: run 7034 k241 = inl k242.	L1185	new
607	Definition	`k243`	Definition k243 := mk [3;1;9;1;13;2;12;1;8;2;9;1;13;1;9;1;13;1] 403426 2.	L1186	new
608	Lemma	`s243`	Lemma s243: run 7363 k242 = inl k243.	L1187	new
609	Definition	`k244`	Definition k244 := mk [3;1;2;3;13;1;9;1;13;1;8;1;13;1] 405292 8.	L1188	new
610	Lemma	`s244`	Lemma s244: run 7687 k243 = inl k244.	L1189	new
611	Definition	`k245`	Definition k245 := mk [3;1;13;1;9;1;12;2;13;1;12;1;13;1] 407226 3.	L1190	new
612	Lemma	`s245`	Lemma s245: run 8183 k244 = inl k245.	L1191	new
613	Definition	`k246`	Definition k246 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;4;3;1;2;1;13;1] 409017 168.	L1192	new
614	Lemma	`s246`	Lemma s246: run 8231 k245 = inl k246.	L1193	new
615	Definition	`k247`	Definition k247 := mk [2;1;3;1;6;1;8;3;9;1;8;1;9;1;12;1] 411015 3.	L1194	new
616	Lemma	`s247`	Lemma s247: run 7572 k246 = inl k247.	L1195	new
617	Definition	`k248`	Definition k248 := mk [2;1;9;2;13;1;9;1;13;1;8;1;9;1;13;1] 412907 5.	L1196	new
618	Lemma	`s248`	Lemma s248: run 8011 k247 = inl k248.	L1197	new
619	Definition	`k249`	Definition k249 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;1;3;1] 390175 24653.	L1198	new
620	Lemma	`s249`	Lemma s249: run 8249 k248 = inl k249.	L1199	new
621	Definition	`k250`	Definition k250 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;13;1] 415099 1661.	L1200	new
622	Lemma	`s250`	Lemma s250: run 8439 k249 = inl k250.	L1201	new
623	Definition	`k251`	Definition k251 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1] 416593 2047.	L1202	new
624	Lemma	`s251`	Lemma s251: run 8180 k250 = inl k251.	L1203	new
625	Definition	`k252`	Definition k252 := mk [2;1;12;1;13;1;8;1;13;2;9;2;12;1] 420535 2.	L1204	new
626	Lemma	`s252`	Lemma s252: run 7990 k251 = inl k252.	L1205	new
627	Definition	`k253`	Definition k253 := mk [3;1;13;1;9;2;12;2;8;1;12;1] 422411 3.	L1206	new
628	Lemma	`s253`	Lemma s253: run 8117 k252 = inl k253.	L1207	new
629	Definition	`k254`	Definition k254 := mk [2;1;12;1;8;1;13;1;8;1;9;2;12;1] 424446 3.	L1208	new
630	Lemma	`s254`	Lemma s254: run 7992 k253 = inl k254.	L1209	new
631	Definition	`k255`	Definition k255 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;8;1;9;2;13;2;9;1;13;1] 426274 2.	L1210	new
632	Lemma	`s255`	Lemma s255: run 7338 k254 = inl k255.	L1211	new
633	Definition	`k256`	Definition k256 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;9;2;8;1;12;1] 428148 3.	L1212	new
634	Lemma	`s256`	Lemma s256: run 7052 k255 = inl k256.	L1213	new
635	Definition	`k257`	Definition k257 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1] 429921 27.	L1214	new
636	Lemma	`s257`	Lemma s257: run 7351 k256 = inl k257.	L1215	new
637	Definition	`k258`	Definition k258 := mk [7;1;6;1;12;1;9;1;13;1;8;2;13;2;9;1;13;1] 431827 2.	L1216	new
638	Lemma	`s258`	Lemma s258: run 7938 k257 = inl k258.	L1217	new
639	Definition	`k259`	Definition k259 := mk [7;1;6;1;8;2;13;1;12;1;8;1;9;2;12;1] 433774 2.	L1218	new
640	Lemma	`s259`	Lemma s259: run 7815 k258 = inl k259.	L1219	new
641	Definition	`k260`	Definition k260 := mk [2;1;12;2;13;1;9;1;13;2;9;1;12;1] 435655 3.	L1220	new
642	Lemma	`s260`	Lemma s260: run 7027 k259 = inl k260.	L1221	new
643	Definition	`k261`	Definition k261 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 437081 545.	L1222	new
644	Lemma	`s261`	Lemma s261: run 7325 k260 = inl k261.	L1223	new
645	Definition	`k262`	Definition k262 := mk [2;1;5;1;7;1;6;1;8;3;12;1;13;1;12;1;13;1] 439658 2.	L1224	new
646	Lemma	`s262`	Lemma s262: run 7649 k261 = inl k262.	L1225	new
647	Definition	`k263`	Definition k263 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1;9;1;13;2;9;1;13;1] 441518 3.	L1226	new
648	Lemma	`s263`	Lemma s263: run 7807 k262 = inl k263.	L1227	new
649	Definition	`k264`	Definition k264 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;12;1] 443246 120.	L1228	new
650	Lemma	`s264`	Lemma s264: run 7383 k263 = inl k264.	L1229	new
651	Definition	`k265`	Definition k265 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;2;9;2;13;1] 445207 11.	L1230	new
652	Lemma	`s265`	Lemma s265: run 7408 k264 = inl k265.	L1231	new
653	Definition	`k266`	Definition k266 := mk [3;1;13;1;8;1;12;3;8;1;13;1;12;1] 447176 3.	L1232	new
654	Lemma	`s266`	Lemma s266: run 8011 k265 = inl k266.	L1233	new
655	Definition	`k267`	Definition k267 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;1;9;2;12;1] 449165 4.	L1234	new
656	Lemma	`s267`	Lemma s267: run 7992 k266 = inl k267.	L1235	new
657	Definition	`k268`	Definition k268 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;12;1;8;1;12;1] 451066 8.	L1236	new
658	Lemma	`s268`	Lemma s268: run 8100 k267 = inl k268.	L1237	new
659	Definition	`k269`	Definition k269 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 443311 9740.	L1238	new
660	Lemma	`s269`	Lemma s269: run 7878 k268 = inl k269.	L1239	new
661	Definition	`k270`	Definition k270 := mk [9;1;5;1;6;1;9;1;8;1;9;1;12;1] 454983 3.	L1240	new
662	Lemma	`s270`	Lemma s270: run 7834 k269 = inl k270.	L1241	new
663	Definition	`k271`	Definition k271 := mk [3;1;2;4;3;1;2;1;12;1;9;1;12;1;8;1;13;1;12;1] 456818 4.	L1242	new
664	Lemma	`s271`	Lemma s271: run 7914 k270 = inl k271.	L1243	new
665	Definition	`k272`	Definition k272 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;4;1;3;1;2;1;3;1] 458800 4.	L1244	new
666	Lemma	`s272`	Lemma s272: run 7636 k271 = inl k272.	L1245	new
667	Definition	`k273`	Definition k273 := mk [3;1;2;2;9;4;3;1;2;4;3;2] 459052 1290.	L1246	new
668	Lemma	`s273`	Lemma s273: run 5868 k272 = inl k273.	L1247	new
669	Definition	`k274`	Definition k274 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1] 460732 1605.	L1248	new
670	Lemma	`s274`	Lemma s274: run 7338 k273 = inl k274.	L1249	new
671	Definition	`k275`	Definition k275 := mk [3;1;2;2;9;3;3;1;2;4;3;2;8;1;12;1] 464230 150.	L1250	new
672	Lemma	`s275`	Lemma s275: run 7533 k274 = inl k275.	L1251	new
673	Definition	`k276`	Definition k276 := mk [5;1;6;1;13;1;12;1;9;1;12;1;8;2;12;1] 466333 4.	L1252	new
674	Lemma	`s276`	Lemma s276: run 7770 k275 = inl k276.	L1253	new
675	Definition	`k277`	Definition k277 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;8;1;13;2;9;1;13;1;12;1] 468259 2.	L1254	new
676	Lemma	`s277`	Lemma s277: run 7366 k276 = inl k277.	L1255	new
677	Definition	`k278`	Definition k278 := mk [3;1;2;2;3;1;2;1;3;2;8;1;9;1;12;1;9;1;8;1;9;1;13;1] 470227 4.	L1256	new
678	Lemma	`s278`	Lemma s278: run 7429 k277 = inl k278.	L1257	new
679	Definition	`k279`	Definition k279 := mk [3;1;13;1;12;2;9;1;12;1;9;1;13;1;12;1] 472126 3.	L1258	new
680	Lemma	`s279`	Lemma s279: run 7673 k278 = inl k279.	L1259	new
681	Definition	`k280`	Definition k280 := mk [5;1;6;1;9;1;12;3;13;1] 473984 4.	L1260	new
682	Lemma	`s280`	Lemma s280: run 7833 k279 = inl k280.	L1261	new
683	Definition	`k281`	Definition k281 := mk [2;1;3;1;2;1;3;1;2;1;4;1;12;1;13;3;9;1;12;1;9;1;13;1] 475922 2.	L1262	new
684	Lemma	`s281`	Lemma s281: run 7591 k280 = inl k281.	L1263	new
685	Definition	`k282`	Definition k282 := mk [3;1;9;1;13;2;9;1;8;1;9;1;13;1;12;1] 477754 3.	L1264	new
686	Lemma	`s282`	Lemma s282: run 7515 k281 = inl k282.	L1265	new
687	Definition	`k283`	Definition k283 := mk [3;1;2;2;9;4;2;1;13;2;9;1;13;1] 479051 584.	L1266	new
688	Lemma	`s283`	Lemma s283: run 7941 k282 = inl k283.	L1267	new
689	Definition	`k284`	Definition k284 := mk [2;2;6;1;9;1;8;1;12;1;8;1;9;1;13;1;9;1;12;1;9;1] 481633 2.	L1268	new
690	Lemma	`s284`	Lemma s284: run 7806 k283 = inl k284.	L1269	new
691	Definition	`k285`	Definition k285 := mk [3;1;2;2;9;2;2;1;9;1;12;1;13;2;9;1;12;1] 483613 22.	L1270	new
692	Lemma	`s285`	Lemma s285: run 7728 k284 = inl k285.	L1271	new
693	Definition	`k286`	Definition k286 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;1;12;2;9;1;13;1] 485660 4.	L1272	new
694	Lemma	`s286`	Lemma s286: run 7510 k285 = inl k286.	L1273	new
695	Definition	`k287`	Definition k287 := mk [3;1;12;3;8;2;12;1;9;1;13;2] 487650 2.	L1274	new
696	Lemma	`s287`	Lemma s287: run 7731 k286 = inl k287.	L1275	new
697	Definition	`k288`	Definition k288 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;1;12;1;13;1] 489629 6.	L1276	new
698	Lemma	`s288`	Lemma s288: run 7794 k287 = inl k288.	L1277	new
699	Definition	`k289`	Definition k289 := mk [3;1;9;1;13;1;9;4;13;1;8;1;9;1;13;1] 491557 2.	L1278	new
700	Lemma	`s289`	Lemma s289: run 7890 k288 = inl k289.	L1279	new
701	Definition	`k290`	Definition k290 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 493409 10.	L1280	new
702	Lemma	`s290`	Lemma s290: run 7352 k289 = inl k290.	L1281	new
703	Definition	`k291`	Definition k291 := mk [3;1;4;1;4;1;4;1;13;3;12;1;9;2;12;1] 495337 2.	L1282	new
704	Lemma	`s291`	Lemma s291: run 7562 k290 = inl k291.	L1283	new
705	Definition	`k292`	Definition k292 := mk [3;1;12;1;9;1;12;1;9;3;8;1;13;1;8;1;12;1] 497256 2.	L1284	new
706	Lemma	`s292`	Lemma s292: run 7805 k291 = inl k292.	L1285	new
707	Definition	`k293`	Definition k293 := mk [2;2;6;1;9;2;13;1;12;1;8;1;13;1;8;1;12;1] 499231 2.	L1286	new
708	Lemma	`s293`	Lemma s293: run 7879 k292 = inl k293.	L1287	new
709	Definition	`k294`	Definition k294 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 394115 107078.	L1288	new
710	Lemma	`s294`	Lemma s294: run 7463 k293 = inl k294.	L1289	new
711	Definition	`k295`	Definition k295 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 403355 99917.	L1290	new
712	Lemma	`s295`	Lemma s295: run 7580 k294 = inl k295.	L1291	new
713	Definition	`k296`	Definition k296 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 503888 1395.	L1292	new
714	Lemma	`s296`	Lemma s296: run 7784 k295 = inl k296.	L1293	new
715	Definition	`k297`	Definition k297 := mk [2;1;9;1;12;1;8;2;12;1;8;2;13;1] 507337 3.	L1294	new
716	Lemma	`s297`	Lemma s297: run 7782 k296 = inl k297.	L1295	new
717	Definition	`k298`	Definition k298 := mk [2;1;13;1;8;1;12;1;8;1;9;2;8;1;12;1] 509298 3.	L1296	new
718	Lemma	`s298`	Lemma s298: run 7378 k297 = inl k298.	L1297	new
719	Definition	`k299`	Definition k299 := mk [2;1;9;1;13;1;12;1;9;2;12;1;13;1;12;1] 511265 4.	L1298	new
720	Lemma	`s299`	Lemma s299: run 7639 k298 = inl k299.	L1299	new
721	Definition	`k300`	Definition k300 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1;8;1;9;1;8;1;12;1] 513263 10.	L1300	new
722	Lemma	`s300`	Lemma s300: run 7795 k299 = inl k300.	L1301	new
723	Definition	`k301`	Definition k301 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 515269 3.	L1302	new
724	Lemma	`s301`	Lemma s301: run 7779 k300 = inl k301.	L1303	new
725	Definition	`k302`	Definition k302 := mk [2;1;3;1;6;1;9;1;13;1;8;1;9;4;12;1] 517348 3.	L1304	new
726	Lemma	`s302`	Lemma s302: run 7551 k301 = inl k302.	L1305	new
727	Definition	`k303`	Definition k303 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1;12;1;9;1;13;1] 519337 17.	L1306	new
728	Lemma	`s303`	Lemma s303: run 7536 k302 = inl k303.	L1307	new
729	Definition	`k304`	Definition k304 := mk [3;1;9;1;13;2;12;1;9;1;8;2;13;1] 521398 2.	L1308	new
730	Lemma	`s304`	Lemma s304: run 7649 k303 = inl k304.	L1309	new
731	Definition	`k305`	Definition k305 := mk [2;1;9;1;12;4;8;1;13;1] 523365 4.	L1310	new
732	Lemma	`s305`	Lemma s305: run 7897 k304 = inl k305.	L1311	new
733	Definition	`k306`	Definition k306 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 524933 6.	L1312	new
734	Lemma	`s306`	Lemma s306: run 5739 k305 = inl k306.	L1313	new
735	Definition	`k307`	Definition k307 := mk [3;1;8;1;12;1;9;1;13;1;9;3;13;1;9;2;12;1] 526564 2.	L1314	new
736	Lemma	`s307`	Lemma s307: run 5114 k306 = inl k307.	L1315	new
737	Definition	`k308`	Definition k308 := mk [2;1;3;1;2;3;6;1;8;1;12;1;8;1;12;1;8;2;13;1] 527477 2.	L1316	new
738	Lemma	`s308`	Lemma s308: run 2587 k307 = inl k308.	L1317	new
739	Definition	`k309`	Definition k309 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;4;1;4;1;13;1] 527646 1304.	L1318	new
740	Lemma	`s309`	Lemma s309: run 5200 k308 = inl k309.	L1319	new
741	Definition	`k310`	Definition k310 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;2;3;1] 529478 23.	L1320	new
742	Lemma	`s310`	Lemma s310: run 2228 k309 = inl k310.	L1321	new
743	Definition	`k311`	Definition k311 := mk [3;1;8;2;9;2;13;1;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 530740 3.	L1322	new
744	Lemma	`s311`	Lemma s311: run 4679 k310 = inl k311.	L1323	new
745	Definition	`k312`	Definition k312 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;2;3;1] 528775 2295.	L1324	new
746	Lemma	`s312`	Lemma s312: run 1299 k311 = inl k312.	L1325	new
747	Definition	`k313`	Definition k313 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;4;3;2] 532783 3.	L1326	new
748	Lemma	`s313`	Lemma s313: run 5835 k312 = inl k313.	L1327	new
749	Definition	`k314`	Definition k314 := mk [3;1;2;2;3;1;2;4;3;1;2;1;13;1;9;2;13;2] 534260 3.	L1328	new
750	Lemma	`s314`	Lemma s314: run 4883 k313 = inl k314.	L1329	new
751	Definition	`k315`	Definition k315 := mk [3;1;12;1;9;2;8;1;9;3;12;1;13;1] 536090 2.	L1330	new
752	Lemma	`s315`	Lemma s315: run 5897 k314 = inl k315.	L1331	new
753	Definition	`k316`	Definition k316 := mk [3;1;9;1;8;2;9;1;12;1;9;1;13;1;9;1;12;1] 537962 2.	L1332	new
754	Lemma	`s316`	Lemma s316: run 6714 k315 = inl k316.	L1333	new
755	Definition	`k317`	Definition k317 := mk [2;1;9;2;3;1;2;1;3;1;2;1;4;1;13;1;12;2;9;1;12;1] 539675 2.	L1334	new
756	Lemma	`s317`	Lemma s317: run 6323 k316 = inl k317.	L1335	new
757	Definition	`k318`	Definition k318 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;1;3;1] 533105 7789.	L1336	new
758	Lemma	`s318`	Lemma s318: run 4658 k317 = inl k318.	L1337	new
759	Definition	`k319`	Definition k319 := mk [4;1;4;1;13;2;12;1;13;1;8;1;13;1] 542583 3.	L1338	new
760	Lemma	`s319`	Lemma s319: run 5988 k318 = inl k319.	L1339	new
761	Definition	`k320`	Definition k320 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 542556 1364.	L1340	new
762	Lemma	`s320`	Lemma s320: run 5156 k319 = inl k320.	L1341	new
763	Definition	`k321`	Definition k321 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;13;1;9;1;8;2;12;1;13;1] 545430 2.	L1342	new
764	Lemma	`s321`	Lemma s321: run 5920 k320 = inl k321.	L1343	new
765	Definition	`k322`	Definition k322 := mk [6;1;4;1;8;1;9;1;12;1;13;2;8;1;13;1] 546724 2.	L1344	new
766	Lemma	`s322`	Lemma s322: run 5428 k321 = inl k322.	L1345	new
767	Definition	`k323`	Definition k323 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 546854 1617.	L1346	new
768	Lemma	`s323`	Lemma s323: run 6912 k322 = inl k323.	L1347	new
769	Definition	`k324`	Definition k324 := mk [2;2;14;1;6;1;9;2;13;1;12;1;13;1;8;1;12;1] 550448 2.	L1348	new
770	Lemma	`s324`	Lemma s324: run 7195 k323 = inl k324.	L1349	new
771	Definition	`k325`	Definition k325 := mk [3;1;2;2;9;3;3;1;2;4;3;2] 551850 446.	L1350	new
772	Lemma	`s325`	Lemma s325: run 6900 k324 = inl k325.	L1351	new
773	Definition	`k326`	Definition k326 := mk [2;1;3;1;2;1;3;1;2;1;4;1;9;2;12;1;13;1;9;1;13;2] 553886 2.	L1352	new
774	Lemma	`s326`	Lemma s326: run 6161 k325 = inl k326.	L1353	new
775	Definition	`k327`	Definition k327 := mk [3;1;9;1;13;3;8;1;13;1;12;1] 555827 2.	L1354	new
776	Lemma	`s327`	Lemma s327: run 7452 k326 = inl k327.	L1355	new
777	Definition	`k328`	Definition k328 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;12;1;8;1;13;1;8;1;13;1] 557479 6.	L1356	new
778	Lemma	`s328`	Lemma s328: run 5877 k327 = inl k328.	L1357	new
779	Definition	`k329`	Definition k329 := mk [9;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;1;9;1;13;1;9;2;12;1;9;1;12;1] 558778 3.	L1358	new
780	Lemma	`s329`	Lemma s329: run 4267 k328 = inl k329.	L1359	new
781	Definition	`k330`	Definition k330 := mk [2;1;12;2;13;1;8;1;13;1;8;1;9;1;13;1;9;1;13;1] 560447 2.	L1360	new
782	Lemma	`s330`	Lemma s330: run 5327 k329 = inl k330.	L1361	new
783	Definition	`k331`	Definition k331 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 561505 9.	L1362	new
784	Lemma	`s331`	Lemma s331: run 3535 k330 = inl k331.	L1363	new
785	Definition	`k332`	Definition k332 := mk [7;1;6;1;8;1;12;1;9;2;8;1;9;3;13;1] 562710 2.	L1364	new
786	Lemma	`s332`	Lemma s332: run 4380 k331 = inl k332.	L1365	new
787	Definition	`k333`	Definition k333 := mk [2;1;12;2;8;1;13;1;12;1;8;1;12;1] 564227 2.	L1366	new
788	Lemma	`s333`	Lemma s333: run 5631 k332 = inl k333.	L1367	new
789	Definition	`k334`	Definition k334 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;1;3;1] 565700 60.	L1368	new
790	Lemma	`s334`	Lemma s334: run 5051 k333 = inl k334.	L1369	new
791	Definition	`k335`	Definition k335 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;7;3;1] 566523 40.	L1370	new
792	Lemma	`s335`	Lemma s335: run 2523 k334 = inl k335.	L1371	new
793	Definition	`k336`	Definition k336 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;10;3;1] 566777 70.	L1372	new
794	Lemma	`s336`	Lemma s336: run 961 k335 = inl k336.	L1373	new
795	Definition	`k337`	Definition k337 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 566899 146.	L1374	new
796	Lemma	`s337`	Lemma s337: run 616 k336 = inl k337.	L1375	new
797	Definition	`k338`	Definition k338 := mk [2;1;9;1;8;1;13;2;9;1;13;1;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;2;3;1;2;1;3;1] 567212 3.	L1376	new
798	Lemma	`s338`	Lemma s338: run 550 k337 = inl k338.	L1377	new
799	Definition	`k339`	Definition k339 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1] 567344 4.	L1378	new
800	Lemma	`s339`	Lemma s339: run 418 k338 = inl k339.	L1379	new
801	Definition	`k340`	Definition k340 := mk [3;1;9;1;13;1;12;1;8;1;13;3;9;1;13;1;12;1] 567782 2.	L1380	new
802	Lemma	`s340`	Lemma s340: run 1133 k339 = inl k340.	L1381	new
803	Definition	`k341`	Definition k341 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 569139 4.	L1382	new
804	Lemma	`s341`	Lemma s341: run 4594 k340 = inl k341.	L1383	new
805	Definition	`k342`	Definition k342 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 567263 3677.	L1384	new
806	Lemma	`s342`	Lemma s342: run 6795 k341 = inl k342.	L1385	new
807	Definition	`k343`	Definition k343 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 565768 6890.	L1386	new
808	Lemma	`s343`	Lemma s343: run 6632 k342 = inl k343.	L1387	new
809	Definition	`k344`	Definition k344 := mk [3;1;5;1;7;1;6;1;8;1;13;1;9;2;12;1;9;2;13;1] 574065 2.	L1388	new
810	Lemma	`s344`	Lemma s344: run 5308 k343 = inl k344.	L1389	new
811	Definition	`k345`	Definition k345 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;12;1] 575086 51.	L1390	new
812	Lemma	`s345`	Lemma s345: run 3983 k344 = inl k345.	L1391	new
813	Definition	`k346`	Definition k346 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 470711 106148.	L1392	new
814	Lemma	`s346`	Lemma s346: run 6678 k345 = inl k346.	L1393	new
815	Definition	`k347`	Definition k347 := mk [2;1;3;1;2;3;6;1;9;2;8;2;12;1;9;1;13;2] 578649 2.	L1394	new
816	Lemma	`s347`	Lemma s347: run 7275 k346 = inl k347.	L1395	new
817	Definition	`k348`	Definition k348 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 565105 14613.	L1396	new
818	Lemma	`s348`	Lemma s348: run 4369 k347 = inl k348.	L1397	new
819	Definition	`k349`	Definition k349 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 553339 28009.	L1398	new
820	Lemma	`s349`	Lemma s349: run 6556 k348 = inl k349.	L1399	new
821	Definition	`k350`	Definition k350 := mk [2;1;9;1;12;1;9;2;8;2;12;1;13;2] 582992 3.	L1400	new
822	Lemma	`s350`	Lemma s350: run 6342 k349 = inl k350.	L1401	new
823	Definition	`k351`	Definition k351 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 583560 6.	L1402	new
824	Lemma	`s351`	Lemma s351: run 2660 k350 = inl k351.	L1403	new
825	Definition	`k352`	Definition k352 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 583602 261.	L1404	new
826	Lemma	`s352`	Lemma s352: run 1363 k351 = inl k352.	L1405	new
827	Definition	`k353`	Definition k353 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 558425 25762.	L1406	new
828	Lemma	`s353`	Lemma s353: run 1416 k352 = inl k353.	L1407	new
829	Definition	`k354`	Definition k354 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 585261 32.	L1408	new
830	Lemma	`s354`	Lemma s354: run 4599 k353 = inl k354.	L1409	new
831	Definition	`k355`	Definition k355 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;1] 560410 26439.	L1410	new
832	Lemma	`s355`	Lemma s355: run 6039 k354 = inl k355.	L1411	new
833	Definition	`k356`	Definition k356 := mk [3;1;2;4;3;2;9;2;13;1;8;1;12;1;9;2;13;1] 587738 3.	L1412	new
834	Lemma	`s356`	Lemma s356: run 3611 k355 = inl k356.	L1413	new
835	Definition	`k357`	Definition k357 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;2;3;1] 589141 107.	L1414	new
836	Lemma	`s357`	Lemma s357: run 5902 k356 = inl k357.	L1415	new
837	Definition	`k358`	Definition k358 := mk [3;1;8;1;12;2;9;1;13;1;9;3;8;1;13;1] 589671 4.	L1416	new
838	Lemma	`s358`	Lemma s358: run 1581 k357 = inl k358.	L1417	new
839	Definition	`k359`	Definition k359 := mk [3;1;5;1;7;1;6;1;12;1;8;1;9;3;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;1;3;1] 590739 2.	L1418	new
840	Lemma	`s359`	Lemma s359: run 3768 k358 = inl k359.	L1419	new
841	Definition	`k360`	Definition k360 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;2;3;1;2;1;3;1] 590946 4.	L1420	new
842	Lemma	`s360`	Lemma s360: run 681 k359 = inl k360.	L1421	new
843	Definition	`k361`	Definition k361 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 590991 132.	L1422	new
844	Lemma	`s361`	Lemma s361: run 677 k360 = inl k361.	L1423	new
845	Definition	`k362`	Definition k362 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1;2;2;3;1] 583898 7443.	L1424	new
846	Lemma	`s362`	Lemma s362: run 714 k361 = inl k362.	L1425	new
847	Definition	`k363`	Definition k363 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 590966 601.	L1426	new
848	Lemma	`s363`	Lemma s363: run 798 k362 = inl k363.	L1427	new
849	Definition	`k364`	Definition k364 := mk [3;1;9;1;12;1;13;2;12;1;13;1;12;1;9;1;13;1;9;1;13;1] 592282 2.	L1428	new
850	Lemma	`s364`	Lemma s364: run 2056 k363 = inl k364.	L1429	new
851	Definition	`k365`	Definition k365 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 594077 29.	L1430	new
852	Lemma	`s365`	Lemma s365: run 6707 k364 = inl k365.	L1431	new
853	Definition	`k366`	Definition k366 := mk [3;1;12;1;13;1;9;1;8;1;13;2;8;1;13;1;12;1] 595907 2.	L1432	new
854	Lemma	`s366`	Lemma s366: run 7291 k365 = inl k366.	L1433	new
855	Definition	`k367`	Definition k367 := mk [7;1;6;1;12;1;8;1;9;2;12;1] 597745 2.	L1434	new
856	Lemma	`s367`	Lemma s367: run 7460 k366 = inl k367.	L1435	new
857	Definition	`k368`	Definition k368 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1] 599481 86.	L1436	new
858	Lemma	`s368`	Lemma s368: run 6675 k367 = inl k368.	L1437	new
859	Definition	`k369`	Definition k369 := mk [3;1;2;2;3;1;2;4;3;1;2;1;9;2;13;4] 601455 4.	L1438	new
860	Lemma	`s369`	Lemma s369: run 7177 k368 = inl k369.	L1439	new
861	Definition	`k370`	Definition k370 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1;2;2;3;1] 601355 1794.	L1440	new
862	Lemma	`s370`	Lemma s370: run 6913 k369 = inl k370.	L1441	new
863	Definition	`k371`	Definition k371 := mk [3;1;9;1;12;1;8;1;13;1;12;1;9;1;8;1;9;1;13;1] 604918 3.	L1442	new
864	Lemma	`s371`	Lemma s371: run 7325 k370 = inl k371.	L1443	new
865	Definition	`k372`	Definition k372 := mk [3;1;2;2;3;1;2;4;3;2;13;2;8;1;12;1;9;1;13;1;9;1;13;1] 606593 9.	L1444	new
866	Lemma	`s372`	Lemma s372: run 6821 k371 = inl k372.	L1445	new
867	Definition	`k373`	Definition k373 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 606806 1693.	L1446	new
868	Lemma	`s373`	Lemma s373: run 7240 k372 = inl k373.	L1447	new
869	Definition	`k374`	Definition k374 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1;13;1] 610317 5.	L1448	new
870	Lemma	`s374`	Lemma s374: run 7478 k373 = inl k374.	L1449	new
871	Definition	`k375`	Definition k375 := mk [3;1;9;3;13;1;9;1;13;1;8;1;13;1;12;1] 612167 2.	L1450	new
872	Lemma	`s375`	Lemma s375: run 7614 k374 = inl k375.	L1451	new
873	Definition	`k376`	Definition k376 := mk [2;1;3;1;2;1;3;1;4;1;4;1;4;1;13;2;9;2;8;1;13;1;9;1;12;1] 614087 2.	L1452	new
874	Lemma	`s376`	Lemma s376: run 7601 k375 = inl k376.	L1453	new
875	Definition	`k377`	Definition k377 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;4;1;4;1;13;1;9;1;13;1] 615726 260.	L1454	new
876	Lemma	`s377`	Lemma s377: run 7416 k376 = inl k377.	L1455	new
877	Definition	`k378`	Definition k378 := mk [3;1;2;2;3;1;2;3;13;1;9;1;12;1;9;1;13;2] 617864 13.	L1456	new
878	Lemma	`s378`	Lemma s378: run 7388 k377 = inl k378.	L1457	new
879	Definition	`k379`	Definition k379 := mk [2;1;9;2;8;1;9;1;13;1;12;1;13;1;12;1] 619805 3.	L1458	new
880	Lemma	`s379`	Lemma s379: run 7585 k378 = inl k379.	L1459	new
881	Definition	`k380`	Definition k380 := mk [3;1;2;2;3;1;2;1;3;1;2;1;12;1;9;1;8;1;9;1;8;1;13;1;12;1] 621670 4.	L1460	new
882	Lemma	`s380`	Lemma s380: run 7604 k379 = inl k380.	L1461	new
883	Definition	`k381`	Definition k381 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 623435 27.	L1462	new
884	Lemma	`s381`	Lemma s381: run 7065 k380 = inl k381.	L1463	new
885	Definition	`k382`	Definition k382 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 625152 5.	L1464	new
886	Lemma	`s382`	Lemma s382: run 6771 k381 = inl k382.	L1465	new
887	Definition	`k383`	Definition k383 := mk [3;1;2;2;3;1;2;3;9;1;12;1;9;1;8;1;9;2;13;1] 626967 7.	L1466	new
888	Lemma	`s383`	Lemma s383: run 6968 k382 = inl k383.	L1467	new
889	Definition	`k384`	Definition k384 := mk [2;1;12;1;8;1;12;1;13;1;12;1;13;1;12;1] 628877 2.	L1468	new
890	Lemma	`s384`	Lemma s384: run 7870 k383 = inl k384.	L1469	new
891	Definition	`k385`	Definition k385 := mk [2;1;3;1;2;2;3;1;2;1;3;1;2;1;4;1;9;2;12;1;13;1;8;1;13;1;9;1;13;1] 630883 2.	L1470	new
892	Lemma	`s385`	Lemma s385: run 7857 k384 = inl k385.	L1471	new
893	Definition	`k386`	Definition k386 := mk [2;1;3;1;2;1;3;1;9;3;13;1;8;2;12;2] 632843 2.	L1472	new
894	Lemma	`s386`	Lemma s386: run 7324 k385 = inl k386.	L1473	new
895	Definition	`k387`	Definition k387 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 634643 171.	L1474	new
896	Lemma	`s387`	Lemma s387: run 7574 k386 = inl k387.	L1475	new
897	Definition	`k388`	Definition k388 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;9;1;8;1;9;1;13;2] 636689 11.	L1476	new
898	Lemma	`s388`	Lemma s388: run 7695 k387 = inl k388.	L1477	new
899	Definition	`k389`	Definition k389 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;13;1] 637672 936.	L1478	new
900	Lemma	`s389`	Lemma s389: run 7773 k388 = inl k389.	L1479	new
901	Definition	`k390`	Definition k390 := mk [2;2;6;1;9;4;12;1;9;1;8;1;13;1;12;1] 640532 2.	L1480	new
902	Lemma	`s390`	Lemma s390: run 7093 k389 = inl k390.	L1481	new
903	Definition	`k391`	Definition k391 := mk [3;1;2;2;9;3;3;1;2;4;3;1;9;1;5;1;6;1] 642217 169.	L1482	new
904	Lemma	`s391`	Lemma s391: run 7626 k390 = inl k391.	L1483	new
905	Definition	`k392`	Definition k392 := mk [2;1;5;1;7;1;6;1;8;1;9;1;12;1;13;1;9;1;13;2] 644216 2.	L1484	new
906	Lemma	`s392`	Lemma s392: run 7908 k391 = inl k392.	L1485	new
907	Definition	`k393`	Definition k393 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 614552 31585.	L1486	new
908	Lemma	`s393`	Lemma s393: run 7580 k392 = inl k393.	L1487	new
909	Definition	`k394`	Definition k394 := mk [3;1;2;2;9;2;3;1;2;4;3;2;8;1;13;3] 648000 67.	L1488	new
910	Lemma	`s394`	Lemma s394: run 7208 k393 = inl k394.	L1489	new
911	Definition	`k395`	Definition k395 := mk [3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;1;12;1] 650042 6.	L1490	new
912	Lemma	`s395`	Lemma s395: run 7415 k394 = inl k395.	L1491	new
913	Definition	`k396`	Definition k396 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1;12;1] 651935 5.	L1492	new
914	Lemma	`s396`	Lemma s396: run 7490 k395 = inl k396.	L1493	new
915	Definition	`k397`	Definition k397 := mk [3;1;2;2;3;1;2;4;3;1;2;1;9;2;8;1;9;1;8;1;13;2] 653816 3.	L1494	new
916	Lemma	`s397`	Lemma s397: run 7751 k396 = inl k397.	L1495	new
917	Definition	`k398`	Definition k398 := mk [2;1;9;1;8;2;9;3;13;2;9;1;13;2] 655689 3.	L1496	new
918	Lemma	`s398`	Lemma s398: run 6935 k397 = inl k398.	L1497	new
919	Definition	`k399`	Definition k399 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;13;1;9;1;13;2] 656575 28.	L1498	new
920	Lemma	`s399`	Lemma s399: run 2627 k398 = inl k399.	L1499	new
921	Definition	`k400`	Definition k400 := mk [2;1;13;1;9;2;13;2;9;1;12;1] 657868 5.	L1500	new
922	Lemma	`s400`	Lemma s400: run 3890 k399 = inl k400.	L1501	new
923	Definition	`k401`	Definition k401 := mk [3;1;2;2;3;1;2;2;3;1;2;3;9;1;13;1;9;2;13;2;9;1;13;1] 659137 4.	L1502	new
924	Lemma	`s401`	Lemma s401: run 4088 k400 = inl k401.	L1503	new
925	Definition	`k402`	Definition k402 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;1] 658471 2057.	L1504	new
926	Lemma	`s402`	Lemma s402: run 5018 k401 = inl k402.	L1505	new
927	Definition	`k403`	Definition k403 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 660165 2138.	L1506	new
928	Lemma	`s403`	Lemma s403: run 6490 k402 = inl k403.	L1507	new
929	Definition	`k404`	Definition k404 := mk [2;2;6;1;12;1;13;1;8;1;9;1;13;1;9;1;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 664049 2.	L1508	new
930	Lemma	`s404`	Lemma s404: run 5965 k403 = inl k404.	L1509	new
931	Definition	`k405`	Definition k405 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 664509 34.	L1510	new
932	Lemma	`s405`	Lemma s405: run 1423 k404 = inl k405.	L1511	new
933	Definition	`k406`	Definition k406 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;1;3;1] 665667 29.	L1512	new
934	Lemma	`s406`	Lemma s406: run 3863 k405 = inl k406.	L1513	new
935	Definition	`k407`	Definition k407 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1;2;1;3;2;2;2;3;1;2;1;3;1] 666192 46.	L1514	new
936	Lemma	`s407`	Lemma s407: run 1561 k406 = inl k407.	L1515	new
937	Definition	`k408`	Definition k408 := mk [7;1;6;1;12;1;8;1;12;1;8;2;13;3] 667858 2.	L1516	new
938	Lemma	`s408`	Lemma s408: run 5743 k407 = inl k408.	L1517	new
939	Definition	`k409`	Definition k409 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;1] 669217 42.	L1518	new
940	Lemma	`s409`	Lemma s409: run 5397 k408 = inl k409.	L1519	new
941	Definition	`k410`	Definition k410 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;13;2;12;2] 670098 5.	L1520	new
942	Lemma	`s410`	Lemma s410: run 3130 k409 = inl k410.	L1521	new
943	Definition	`k411`	Definition k411 := mk [3;1;8;1;12;2;9;1;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 671668 4.	L1522	new
944	Lemma	`s411`	Lemma s411: run 6001 k410 = inl k411.	L1523	new
945	Definition	`k412`	Definition k412 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;1] 672103 92.	L1524	new
946	Lemma	`s412`	Lemma s412: run 1935 k411 = inl k412.	L1525	new
947	Definition	`k413`	Definition k413 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2;2;1;3;1] 667112 5201.	L1526	new
948	Lemma	`s413`	Lemma s413: run 397 k412 = inl k413.	L1527	new
949	Definition	`k414`	Definition k414 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;5;3;1;2;1;3;1] 672418 28.	L1528	new
950	Lemma	`s414`	Lemma s414: run 330 k413 = inl k414.	L1529	new
951	Definition	`k415`	Definition k415 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;2;2;1;3;1] 672483 103.	L1530	new
952	Lemma	`s415`	Lemma s415: run 438 k414 = inl k415.	L1531	new
953	Definition	`k416`	Definition k416 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;2;3;1;2;1;3;1] 672630 107.	L1532	new
954	Lemma	`s416`	Lemma s416: run 474 k415 = inl k416.	L1533	new
955	Definition	`k417`	Definition k417 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 672993 1285.	L1534	new
956	Lemma	`s417`	Lemma s417: run 5753 k416 = inl k417.	L1535	new
957	Definition	`k418`	Definition k418 := mk [3;1;4;1;4;1;4;1;9;1;12;1;13;1;12;1;9;1;13;1] 675751 2.	L1536	new
958	Lemma	`s418`	Lemma s418: run 5947 k417 = inl k418.	L1537	new
959	Definition	`k419`	Definition k419 := mk [2;1;9;1;13;2;12;1;9;1;12;1;13;1;12;1] 677598 3.	L1538	new
960	Lemma	`s419`	Lemma s419: run 7342 k418 = inl k419.	L1539	new
961	Definition	`k420`	Definition k420 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;12;1;9;2;12;1] 679510 3.	L1540	new
962	Lemma	`s420`	Lemma s420: run 7278 k419 = inl k420.	L1541	new
963	Definition	`k421`	Definition k421 := mk [2;1;12;1;13;1;9;1;13;1;8;1;13;2;9;1;12;1] 681357 3.	L1542	new
964	Lemma	`s421`	Lemma s421: run 6993 k420 = inl k421.	L1543	new
965	Definition	`k422`	Definition k422 := mk [2;1;5;1;7;1;6;1;12;1;13;1;9;1;13;1;12;1;8;1;9;1;13;1] 683242 2.	L1544	new
966	Lemma	`s422`	Lemma s422: run 7420 k421 = inl k422.	L1545	new
967	Definition	`k423`	Definition k423 := mk [3;1;9;1;13;1;9;1;13;1;8;1;13;3] 685199 3.	L1546	new
968	Lemma	`s423`	Lemma s423: run 7503 k422 = inl k423.	L1547	new
969	Definition	`k424`	Definition k424 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1;9;1;13;1] 687169 9.	L1548	new
970	Lemma	`s424`	Lemma s424: run 7461 k423 = inl k424.	L1549	new
971	Definition	`k425`	Definition k425 := mk [3;1;8;1;4;1;4;1;4;1;13;1;9;2;13;3;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 688764 2.	L1550	new
972	Lemma	`s425`	Lemma s425: run 5134 k424 = inl k425.	L1551	new
973	Definition	`k426`	Definition k426 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 689486 47.	L1552	new
974	Lemma	`s426`	Lemma s426: run 2347 k425 = inl k426.	L1553	new
975	Definition	`k427`	Definition k427 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;13;2] 691039 31.	L1554	new
976	Lemma	`s427`	Lemma s427: run 4593 k426 = inl k427.	L1555	new
977	Definition	`k428`	Definition k428 := mk [3;1;2;2;9;3;2;1;13;2;8;1;13;1;9;1] 692618 74.	L1556	new
978	Lemma	`s428`	Lemma s428: run 5814 k427 = inl k428.	L1557	new
979	Definition	`k429`	Definition k429 := mk [9;1;5;1;6;1;13;1;8;2;13;2;8;1;13;1] 694522 3.	L1558	new
980	Lemma	`s429`	Lemma s429: run 6960 k428 = inl k429.	L1559	new
981	Definition	`k430`	Definition k430 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 696434 19.	L1560	new
982	Lemma	`s430`	Lemma s430: run 6964 k429 = inl k430.	L1561	new
983	Definition	`k431`	Definition k431 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 697651 102.	L1562	new
984	Lemma	`s431`	Lemma s431: run 4045 k430 = inl k431.	L1563	new
985	Definition	`k432`	Definition k432 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 699590 24.	L1564	new
986	Lemma	`s432`	Lemma s432: run 5879 k431 = inl k432.	L1565	new
987	Definition	`k433`	Definition k433 := mk [7;1;6;1;8;2;12;1;13;2;8;1;9;1] 701332 2.	L1566	new
988	Lemma	`s433`	Lemma s433: run 6529 k432 = inl k433.	L1567	new
989	Definition	`k434`	Definition k434 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;4;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 703145 4.	L1568	new
990	Lemma	`s434`	Lemma s434: run 7110 k433 = inl k434.	L1569	new
991	Definition	`k435`	Definition k435 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 704792 33.	L1570	new
992	Lemma	`s435`	Lemma s435: run 6155 k434 = inl k435.	L1571	new
993	Definition	`k436`	Definition k436 := mk [3;1;2;2;9;3;3;1;2;1;3;1;2;1;12;3] 706428 8.	L1572	new
994	Lemma	`s436`	Lemma s436: run 6139 k435 = inl k436.	L1573	new
995	Definition	`k437`	Definition k437 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;3] 708183 60.	L1574	new
996	Lemma	`s437`	Lemma s437: run 7349 k436 = inl k437.	L1575	new
997	Definition	`k438`	Definition k438 := mk [3;1;2;2;9;5;2;1;13;1;8;1;12;1] 706682 3367.	L1576	new
998	Lemma	`s438`	Lemma s438: run 7984 k437 = inl k438.	L1577	new
999	Definition	`k439`	Definition k439 := mk [3;1;8;2;12;1;13;1;9;4;13;1] 711949 3.	L1578	new
1000	Lemma	`s439`	Lemma s439: run 7521 k438 = inl k439.	L1579	new
1001	Definition	`k440`	Definition k440 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;5;1;6;1;8;1;13;2;9;1;12;1] 713570 4.	L1580	new
1002	Lemma	`s440`	Lemma s440: run 6729 k439 = inl k440.	L1581	new
1003	Definition	`k441`	Definition k441 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 715203 4.	L1582	new
1004	Lemma	`s441`	Lemma s441: run 7020 k440 = inl k441.	L1583	new
1005	Definition	`k442`	Definition k442 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 715556 1284.	L1584	new
1006	Lemma	`s442`	Lemma s442: run 6739 k441 = inl k442.	L1585	new
1007	Definition	`k443`	Definition k443 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;12;1;8;2;9;1;13;1] 718248 29.	L1586	new
1008	Lemma	`s443`	Lemma s443: run 6666 k442 = inl k443.	L1587	new
1009	Definition	`k444`	Definition k444 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;1;3;1;2;1;13;3;9;6;2;3;3;1;2;1;3;1] 719348 492.	L1588	new
1010	Lemma	`s444`	Lemma s444: run 6331 k443 = inl k444.	L1589	new
1011	Definition	`k445`	Definition k445 := mk [2;1;3;1;2;1;3;1;9;1;12;1;8;1;9;3;12;1;13;2] 721499 2.	L1590	new
1012	Lemma	`s445`	Lemma s445: run 6255 k444 = inl k445.	L1591	new
1013	Definition	`k446`	Definition k446 := mk [2;2;6;1;12;1;9;1;8;2;9;2;12;1;13;1;9;1;13;1] 723135 2.	L1592	new
1014	Lemma	`s446`	Lemma s446: run 6157 k445 = inl k446.	L1593	new
1015	Definition	`k447`	Definition k447 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;2] 659272 65578.	L1594	new
1016	Lemma	`s447`	Lemma s447: run 6598 k446 = inl k447.	L1595	new
1017	Definition	`k448`	Definition k448 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 726611 11.	L1596	new
1018	Lemma	`s448`	Lemma s448: run 7131 k447 = inl k448.	L1597	new
1019	Definition	`k449`	Definition k449 := mk [3;1;2;4;3;1;2;1;13;1;12;1;9;2;12;1;13;1;9;4;12;1;13;1] 728208 4.	L1598	new
1020	Lemma	`s449`	Lemma s449: run 6615 k448 = inl k449.	L1599	new
1021	Definition	`k450`	Definition k450 := mk [5;1;6;1;13;1;9;3;13;1] 729996 5.	L1600	new
1022	Lemma	`s450`	Lemma s450: run 6949 k449 = inl k450.	L1601	new
1023	Definition	`k451`	Definition k451 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;4;1;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 731714 4.	L1602	new
1024	Lemma	`s451`	Lemma s451: run 6881 k450 = inl k451.	L1603	new
1025	Definition	`k452`	Definition k452 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;12;2;9;1;12;1] 733286 90.	L1604	new
1026	Lemma	`s452`	Lemma s452: run 7343 k451 = inl k452.	L1605	new
1027	Definition	`k453`	Definition k453 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;13;2;12;1] 734313 835.	L1606	new
1028	Lemma	`s453`	Lemma s453: run 7878 k452 = inl k453.	L1607	new
1029	Definition	`k454`	Definition k454 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 653024 83943.	L1608	new
1030	Lemma	`s454`	Lemma s454: run 7941 k453 = inl k454.	L1609	new
1031	Definition	`k455`	Definition k455 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 737295 1309.	L1610	new
1032	Lemma	`s455`	Lemma s455: run 7279 k454 = inl k455.	L1611	new
1033	Definition	`k456`	Definition k456 := mk [3;1;8;1;13;1;12;1;9;1;13;1;9;1;8;1;9;1;13;1] 740255 2.	L1612	new
1034	Lemma	`s456`	Lemma s456: run 7462 k455 = inl k456.	L1613	new
1035	Definition	`k457`	Definition k457 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;9;2;12;1;13;1;12;1] 742006 40.	L1614	new
1036	Lemma	`s457`	Lemma s457: run 8128 k456 = inl k457.	L1615	new
1037	Definition	`k458`	Definition k458 := mk [3;1;9;3;8;1;13;1;8;2;12;1;9;1;13;1] 743933 2.	L1616	new
1038	Lemma	`s458`	Lemma s458: run 8025 k457 = inl k458.	L1617	new
1039	Definition	`k459`	Definition k459 := mk [3;1;2;1;4;1;13;1;9;2;13;1;12;2;13;2;12;1] 745790 2.	L1618	new
1040	Lemma	`s459`	Lemma s459: run 7776 k458 = inl k459.	L1619	new
1041	Definition	`k460`	Definition k460 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 732401 15060.	L1620	new
1042	Lemma	`s460`	Lemma s460: run 6897 k459 = inl k460.	L1621	new
1043	Definition	`k461`	Definition k461 := mk [2;1;12;2;9;1;12;1;13;1;8;1;13;1;9;1;13;1] 749065 2.	L1622	new
1044	Lemma	`s461`	Lemma s461: run 6695 k460 = inl k461.	L1623	new
1045	Definition	`k462`	Definition k462 := mk [3;1;2;2;9;3;3;1;2;1;3;1;8;1;4;1;4;1;9;1;13;1] 750934 10.	L1624	new
1046	Lemma	`s462`	Lemma s462: run 7743 k461 = inl k462.	L1625	new
1047	Definition	`k463`	Definition k463 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 752561 264.	L1626	new
1048	Lemma	`s463`	Lemma s463: run 7801 k462 = inl k463.	L1627	new
1049	Definition	`k464`	Definition k464 := mk [3;1;2;1;4;1;9;2;12;1;9;3;13;1;9;1] 754460 2.	L1628	new
1050	Lemma	`s464`	Lemma s464: run 6610 k463 = inl k464.	L1629	new
1051	Definition	`k465`	Definition k465 := mk [2;1;9;2;2;1;6;1;8;2;13;3;8;1;13;1] 756252 2.	L1630	new
1052	Lemma	`s465`	Lemma s465: run 7263 k464 = inl k465.	L1631	new
1053	Definition	`k466`	Definition k466 := mk [2;1;5;1;7;1;6;1;12;1;13;2;9;1;13;1;12;1;13;1;9;6;2;2;3;2;2;1;3;1] 757996 2.	L1632	new
1054	Lemma	`s466`	Lemma s466: run 7318 k465 = inl k466.	L1633	new
1055	Definition	`k467`	Definition k467 := mk [3;1;2;2;9;2;3;1;2;4;3;1;5;1;6;1;13;2;12;1] 759521 104.	L1634	new
1056	Lemma	`s467`	Lemma s467: run 7166 k466 = inl k467.	L1635	new
1057	Definition	`k468`	Definition k468 := mk [3;1;2;4;3;1;2;1;12;1;13;1;8;2;13;2;9;4;13;1] 761347 3.	L1636	new
1058	Lemma	`s468`	Lemma s468: run 7453 k467 = inl k468.	L1637	new
1059	Definition	`k469`	Definition k469 := mk [7;1;6;1;9;2;13;1;8;1;12;2;9;2;13;1] 762994 2.	L1638	new
1060	Lemma	`s469`	Lemma s469: run 6807 k468 = inl k469.	L1639	new
1061	Definition	`k470`	Definition k470 := mk [2;1;3;1;2;3;4;1;8;1;12;1;13;2;9;2;13;2] 764755 2.	L1640	new
1062	Lemma	`s470`	Lemma s470: run 7218 k469 = inl k470.	L1641	new
1063	Definition	`k471`	Definition k471 := mk [2;2;4;1;13;1;9;1;13;1;12;1;9;2;8;1;9;1;13;1] 766525 2.	L1642	new
1064	Lemma	`s471`	Lemma s471: run 7323 k470 = inl k471.	L1643	new
1065	Definition	`k472`	Definition k472 := mk [2;2;4;1;8;6;12;1;13;1;12;1] 768231 2.	L1644	new
1066	Lemma	`s472`	Lemma s472: run 7695 k471 = inl k472.	L1645	new
1067	Definition	`k473`	Definition k473 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 769438 7.	L1646	new
1068	Lemma	`s473`	Lemma s473: run 5122 k472 = inl k473.	L1647	new
1069	Definition	`k474`	Definition k474 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;2;13;1;12;1;13;2] 770960 104.	L1648	new
1070	Lemma	`s474`	Lemma s474: run 6898 k473 = inl k474.	L1649	new
1071	Definition	`k475`	Definition k475 := mk [2;2;6;1;9;2;13;1;8;1;9;1;12;1;13;1;9;1;13;1] 772872 2.	L1650	new
1072	Lemma	`s475`	Lemma s475: run 7302 k474 = inl k475.	L1651	new
1073	Definition	`k476`	Definition k476 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 774570 13.	L1652	new
1074	Lemma	`s476`	Lemma s476: run 7835 k475 = inl k476.	L1653	new
1075	Definition	`k477`	Definition k477 := mk [2;1;13;1;12;1;13;1;9;1;13;1] 776415 3.	L1654	new
1076	Lemma	`s477`	Lemma s477: run 7900 k476 = inl k477.	L1655	new
1077	Definition	`k478`	Definition k478 := mk [3;1;12;1;13;1;8;3;12;1;9;1;8;1;9;1;13;1] 778282 2.	L1656	new
1078	Lemma	`s478`	Lemma s478: run 7901 k477 = inl k478.	L1657	new
1079	Definition	`k479`	Definition k479 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;5;1;6;1;13;1;12;1] 779771 266.	L1658	new
1080	Lemma	`s479`	Lemma s479: run 7541 k478 = inl k479.	L1659	new
1081	Definition	`k480`	Definition k480 := mk [3;1;2;2;9;4;3;1;2;4;3;2;13;1;12;1;9;1] 781145 545.	L1660	new
1082	Lemma	`s480`	Lemma s480: run 6907 k479 = inl k480.	L1661	new
1083	Definition	`k481`	Definition k481 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;4;1;5;1;6;1;13;1;9;5;12;1;2;2;3;1] 783369 3.	L1662	new
1084	Lemma	`s481`	Lemma s481: run 7249 k480 = inl k481.	L1663	new
1085	Definition	`k482`	Definition k482 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1;2;2;3;1] 757386 26264.	L1664	new
1086	Lemma	`s482`	Lemma s482: run 1364 k481 = inl k482.	L1665	new
1087	Definition	`k483`	Definition k483 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1;2;3;3;1;2;1;3;1] 718332 65492.	L1666	new
1088	Lemma	`s483`	Lemma s483: run 811 k482 = inl k483.	L1667	new
1089	Definition	`k484`	Definition k484 := mk [2;1;9;3;8;1;9;1;13;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;2;3;1;2;1;3;2;2;1;3;1] 784024 4.	L1668	new
1090	Lemma	`s484`	Lemma s484: run 812 k483 = inl k484.	L1669	new
1091	Definition	`k485`	Definition k485 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;2;2;1;3;1] 751773 32431.	L1670	new
1092	Lemma	`s485`	Lemma s485: run 832 k484 = inl k485.	L1671	new
1093	Definition	`k486`	Definition k486 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;2;3;1;2;1;3;1] 784127 232.	L1672	new
1094	Lemma	`s486`	Lemma s486: run 639 k485 = inl k486.	L1673	new
1095	Definition	`k487`	Definition k487 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2;2;1;3;1] 702317 82154.	L1674	new
1096	Lemma	`s487`	Lemma s487: run 498 k486 = inl k487.	L1675	new
1097	Definition	`k488`	Definition k488 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;2;2;4;3;1] 783006 1548.	L1676	new
1098	Lemma	`s488`	Lemma s488: run 428 k487 = inl k488.	L1677	new
1099	Definition	`k489`	Definition k489 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;9;1;13;1] 786166 66.	L1678	new
1100	Lemma	`s489`	Lemma s489: run 6424 k488 = inl k489.	L1679	new
1101	Definition	`k490`	Definition k490 := mk [3;1;12;1;13;1;8;3;13;1;8;2;9;1;13;1] 787833 2.	L1680	new
1102	Lemma	`s490`	Lemma s490: run 5840 k489 = inl k490.	L1681	new
1103	Definition	`k491`	Definition k491 := mk [3;1;12;1;9;1;8;2;9;1;8;1;9;1;12;1;9;1;13;1] 789589 2.	L1682	new
1104	Lemma	`s491`	Lemma s491: run 6111 k490 = inl k491.	L1683	new
1105	Definition	`k492`	Definition k492 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 791120 120.	L1684	new
1106	Lemma	`s492`	Lemma s492: run 6643 k491 = inl k492.	L1685	new
1107	Definition	`k493`	Definition k493 := mk [3;1;9;2;13;1;9;1;8;1;9;2] 792852 2.	L1686	new
1108	Lemma	`s493`	Lemma s493: run 6833 k492 = inl k493.	L1687	new
1109	Definition	`k494`	Definition k494 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 794362 253.	L1688	new
1110	Lemma	`s494`	Lemma s494: run 7116 k493 = inl k494.	L1689	new
1111	Definition	`k495`	Definition k495 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;4;3;1] 781736 14482.	L1690	new
1112	Lemma	`s495`	Lemma s495: run 6050 k494 = inl k495.	L1691	new
1113	Definition	`k496`	Definition k496 := mk [3;1;2;2;9;2;3;1;2;4;3;2;13;1;9;2;12;1;9;6;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 797822 90.	L1692	new
1114	Lemma	`s496`	Lemma s496: run 6521 k495 = inl k496.	L1693	new
1115	Definition	`k497`	Definition k497 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;12;2;8;1;9;1;13;1] 799547 14.	L1694	new
1116	Lemma	`s497`	Lemma s497: run 6890 k496 = inl k497.	L1695	new
1117	Definition	`k498`	Definition k498 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 762834 38542.	L1696	new
1118	Lemma	`s498`	Lemma s498: run 7632 k497 = inl k498.	L1697	new
1119	Definition	`k499`	Definition k499 := mk [3;1;2;4;3;1;2;1;12;1;9;2;12;1;9;2;13;1;9;1;12;1] 803033 4.	L1698	new
1120	Lemma	`s499`	Lemma s499: run 7020 k498 = inl k499.	L1699	new
1121	Definition	`k500`	Definition k500 := mk [2;1;12;1;8;1;13;1;8;1;12;3;8;1;13;1] 804767 2.	L1700	new
1122	Lemma	`s500`	Lemma s500: run 7221 k499 = inl k500.	L1701	new
1123	Definition	`k501`	Definition k501 := mk [4;1;4;1;12;1;13;1;8;1;9;1;8;1;9;1;12;1;13;1] 806498 3.	L1702	new
1124	Lemma	`s501`	Lemma s501: run 7608 k500 = inl k501.	L1703	new
1125	Definition	`k502`	Definition k502 := mk [4;1;4;1;9;1;12;2;9;1;12;1;9;1;13;1] 808321 4.	L1704	new
1126	Lemma	`s502`	Lemma s502: run 7890 k501 = inl k502.	L1705	new
1127	Definition	`k503`	Definition k503 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 808204 1880.	L1706	new
1128	Lemma	`s503`	Lemma s503: run 7865 k502 = inl k503.	L1707	new
1129	Definition	`k504`	Definition k504 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;8;1;13;1] 811959 4.	L1708	new
1130	Lemma	`s504`	Lemma s504: run 7464 k503 = inl k504.	L1709	new
1131	Definition	`k505`	Definition k505 := mk [3;1;2;2;9;5;3;1;2;4;3;1;2;1;12;1] 807084 6660.	L1710	new
1132	Lemma	`s505`	Lemma s505: run 7598 k504 = inl k505.	L1711	new
1133	Definition	`k506`	Definition k506 := mk [3;1;8;1;12;1;9;1;12;1;8;1;9;1;13;1] 815618 3.	L1712	new
1134	Lemma	`s506`	Lemma s506: run 7654 k505 = inl k506.	L1713	new
1135	Definition	`k507`	Definition k507 := mk [3;1;2;2;9;2;3;1;2;4;3;2;8;1;9;1;13;2] 817330 67.	L1714	new
1136	Lemma	`s507`	Lemma s507: run 7812 k506 = inl k507.	L1715	new
1137	Definition	`k508`	Definition k508 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;9;1;13;1;9;1;13;1] 819201 3.	L1716	new
1138	Lemma	`s508`	Lemma s508: run 7757 k507 = inl k508.	L1717	new
1139	Definition	`k509`	Definition k509 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 753571 67219.	L1718	new
1140	Lemma	`s509`	Lemma s509: run 5913 k508 = inl k509.	L1719	new
1141	Definition	`k510`	Definition k510 := mk [3;1;9;1;8;1;9;2;8;3;9;1;13;2] 822500 2.	L1720	new
1142	Lemma	`s510`	Lemma s510: run 6624 k509 = inl k510.	L1721	new
1143	Definition	`k511`	Definition k511 := mk [2;1;8;2;12;1;9;1;13;1;9;1;13;1;12;1] 824248 2.	L1722	new
1144	Lemma	`s511`	Lemma s511: run 7211 k510 = inl k511.	L1723	new
1145	Definition	`k512`	Definition k512 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 826019 14.	L1724	new
1146	Lemma	`s512`	Lemma s512: run 7554 k511 = inl k512.	L1725	new
1147	Definition	`k513`	Definition k513 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;2] 827631 110.	L1726	new
1148	Lemma	`s513`	Lemma s513: run 7346 k512 = inl k513.	L1727	new
1149	Definition	`k514`	Definition k514 := mk [3;1;2;2;3;1;2;1;3;1;2;1;9;2;13;3;9;1;13;2] 829475 4.	L1728	new
1150	Lemma	`s514`	Lemma s514: run 7113 k513 = inl k514.	L1729	new
1151	Definition	`k515`	Definition k515 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;4;3;1] 827787 3434.	L1730	new
1152	Lemma	`s515`	Lemma s515: run 7218 k514 = inl k515.	L1731	new
1153	Definition	`k516`	Definition k516 := mk [2;1;9;1;12;1;9;1;12;2;13;1;9;1;8;2;12;1] 832906 3.	L1732	new
1154	Lemma	`s516`	Lemma s516: run 7808 k515 = inl k516.	L1733	new
1155	Definition	`k517`	Definition k517 := mk [2;1;13;1;9;2;13;1;9;2;8;1;2;1;9;1] 834716 3.	L1734	new
1156	Lemma	`s517`	Lemma s517: run 7762 k516 = inl k517.	L1735	new
1157	Definition	`k518`	Definition k518 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;9;2;8;1;12;1;13;1;12;1] 836483 6.	L1736	new
1158	Lemma	`s518`	Lemma s518: run 7522 k517 = inl k518.	L1737	new
1159	Definition	`k519`	Definition k519 := mk [9;2;3;1;2;1;3;2;8;1;9;1;13;1;8;1;13;2] 838231 5.	L1738	new
1160	Lemma	`s519`	Lemma s519: run 7628 k518 = inl k519.	L1739	new
1161	Definition	`k520`	Definition k520 := mk [3;1;2;2;9;7;2;1;13;1;12;1] 822618 17441.	L1740	new
1162	Lemma	`s520`	Lemma s520: run 8197 k519 = inl k520.	L1741	new
1163	Definition	`k521`	Definition k521 := mk [3;1;2;4;3;2;9;1;13;1;12;1;8;2;12;1;9;1;13;1] 841882 3.	L1742	new
1164	Lemma	`s521`	Lemma s521: run 8050 k520 = inl k521.	L1743	new
1165	Definition	`k522`	Definition k522 := mk [3;1;2;2;9;6;2;1;9;1;12;1;13;1] 837730 5956.	L1744	new
1166	Lemma	`s522`	Lemma s522: run 7942 k521 = inl k522.	L1745	new
1167	Definition	`k523`	Definition k523 := mk [3;1;5;1;7;1;6;1;8;1;13;1;9;1;13;2;8;1;9;1;13;1] 845459 2.	L1746	new
1168	Lemma	`s523`	Lemma s523: run 7800 k522 = inl k523.	L1747	new
1169	Definition	`k524`	Definition k524 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;1;4;1;4;1;9;1;13;1;9;1;12;2] 847158 30.	L1748	new
1170	Lemma	`s524`	Lemma s524: run 7777 k523 = inl k524.	L1749	new
1171	Definition	`k525`	Definition k525 := mk [2;2;4;1;8;1;12;1;8;2;13;2;9;1;12;2] 848989 2.	L1750	new
1172	Lemma	`s525`	Lemma s525: run 7929 k524 = inl k525.	L1751	new
1173	Definition	`k526`	Definition k526 := mk [2;2;6;1;9;1;8;1;12;1;8;1;13;1;8;1;13;1;12;1] 850767 2.	L1752	new
1174	Lemma	`s526`	Lemma s526: run 7914 k525 = inl k526.	L1753	new
1175	Definition	`k527`	Definition k527 := mk [3;1;13;1;9;2;13;1;12;1;9;1;13;1] 852521 3.	L1754	new
1176	Lemma	`s527`	Lemma s527: run 7329 k526 = inl k527.	L1755	new
1177	Definition	`k528`	Definition k528 := mk [3;1;13;1;9;1;13;1;12;4;9;1] 854306 4.	L1756	new
1178	Lemma	`s528`	Lemma s528: run 7051 k527 = inl k528.	L1757	new
1179	Definition	`k529`	Definition k529 := mk [3;1;9;2;8;1;12;1;13;1;9;1;12;2;9;1] 856089 2.	L1758	new
1180	Lemma	`s529`	Lemma s529: run 7390 k528 = inl k529.	L1759	new
1181	Definition	`k530`	Definition k530 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;1;3;1;2;1;9;1;8;1;13;2] 857639 259.	L1760	new
1182	Lemma	`s530`	Lemma s530: run 7926 k529 = inl k530.	L1761	new
1183	Definition	`k531`	Definition k531 := mk [3;1;2;2;9;3;3;1;2;4;3;1;2;1;9;1;8;1;12;1;13;1] 859698 5.	L1762	new
1184	Lemma	`s531`	Lemma s531: run 7743 k530 = inl k531.	L1763	new
1185	Definition	`k532`	Definition k532 := mk [3;1;2;2;9;6;3;1;2;4;3;1;5;1;6;1] 840579 20861.	L1764	new
1186	Lemma	`s532`	Lemma s532: run 7208 k531 = inl k532.	L1765	new
1187	Definition	`k533`	Definition k533 := mk [2;2;4;1;8;1;9;2;13;1;9;1;12;3] 863278 2.	L1766	new
1188	Lemma	`s533`	Lemma s533: run 7749 k532 = inl k533.	L1767	new
1189	Definition	`k534`	Definition k534 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 516629 348484.	L1768	new
1190	Lemma	`s534`	Lemma s534: run 7866 k533 = inl k534.	L1769	new
1191	Definition	`k535`	Definition k535 := mk [2;1;3;1;2;1;3;1;12;1;9;1;13;1;9;1;13;1;12;2;13;1;12;1] 866944 2.	L1770	new
1192	Lemma	`s535`	Lemma s535: run 8294 k534 = inl k535.	L1771	new
1193	Definition	`k536`	Definition k536 := mk [2;1;13;1;12;1;8;1;9;2;12;1;9;1;8;1;13;1] 868840 3.	L1772	new
1194	Lemma	`s536`	Lemma s536: run 8004 k535 = inl k536.	L1773	new
1195	Definition	`k537`	Definition k537 := mk [3;1;2;2;3;1;2;4;3;1;8;1;4;1;4;1;12;1;8;1;13;1] 870670 5.	L1774	new
1196	Lemma	`s537`	Lemma s537: run 7939 k536 = inl k537.	L1775	new
1197	Definition	`k538`	Definition k538 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;4;1;3;1;2;1;3;1] 872460 4.	L1776	new
1198	Lemma	`s538`	Lemma s538: run 8417 k537 = inl k538.	L1777	new
1199	Definition	`k539`	Definition k539 := mk [3;1;13;1;12;1;9;1;13;2] 874338 5.	L1778	new
1200	Lemma	`s539`	Lemma s539: run 8189 k538 = inl k539.	L1779	new
1201	Definition	`k540`	Definition k540 := mk [3;1;2;4;3;2;9;2;8;2;13;1] 876253 3.	L1780	new
1202	Lemma	`s540`	Lemma s540: run 8116 k539 = inl k540.	L1781	new
1203	Definition	`k541`	Definition k541 := mk [3;1;8;1;12;2;13;1;8;1;9;1;12;2;9;1] 878124 3.	L1782	new
1204	Lemma	`s541`	Lemma s541: run 7877 k540 = inl k541.	L1783	new
1205	Definition	`k542`	Definition k542 := mk [3;1;9;1;8;1;9;2;13;1;8;1;12;2;8;1;13;1] 879845 2.	L1784	new
1206	Lemma	`s542`	Lemma s542: run 7533 k541 = inl k542.	L1785	new
1207	Definition	`k543`	Definition k543 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;4;3;1] 794428 87174.	L1786	new
1208	Lemma	`s543`	Lemma s543: run 8073 k542 = inl k543.	L1787	new
1209	Definition	`k544`	Definition k544 := mk [2;2;4;1;8;1;9;1;12;1;13;1;8;2;9;1;13;2] 883485 2.	L1788	new
1210	Lemma	`s544`	Lemma s544: run 8319 k543 = inl k544.	L1789	new
1211	Definition	`k545`	Definition k545 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1;8;2;12;1;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 885001 10.	L1790	new
1212	Lemma	`s545`	Lemma s545: run 6868 k544 = inl k545.	L1791	new
1213	Definition	`k546`	Definition k546 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;1;13;1] 885515 45.	L1792	new
1214	Lemma	`s546`	Lemma s546: run 2361 k545 = inl k546.	L1793	new
1215	Definition	`k547`	Definition k547 := mk [7;1;6;1;12;1;8;1;12;1;8;3;13;1] 887275 2.	L1794	new
1216	Lemma	`s547`	Lemma s547: run 7523 k546 = inl k547.	L1795	new
1217	Definition	`k548`	Definition k548 := mk [5;1;6;1;13;1;8;1;9;2;12;1;9;1;13;1] 889086 4.	L1796	new
1218	Lemma	`s548`	Lemma s548: run 7794 k547 = inl k548.	L1797	new
1219	Definition	`k549`	Definition k549 := mk [3;1;2;2;9;3;3;1;2;4;3;1;9;1;5;1;6;1;13;1;12;1] 890447 449.	L1798	new
1220	Lemma	`s549`	Lemma s549: run 8094 k548 = inl k549.	L1799	new
1221	Definition	`k550`	Definition k550 := mk [3;1;2;2;3;1;2;1;3;2;9;1;8;1;12;1;9;1;8;2;13;2] 892879 3.	L1800	new
1222	Lemma	`s550`	Lemma s550: run 8065 k549 = inl k550.	L1801	new
1223	Definition	`k551`	Definition k551 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;4;1;3;1;2;1;3;1] 894704 4.	L1802	new
1224	Lemma	`s551`	Lemma s551: run 7508 k550 = inl k551.	L1803	new
1225	Definition	`k552`	Definition k552 := mk [3;1;2;3;13;1;9;1;8;1;9;1;13;1;8;2;13;1] 896579 6.	L1804	new
1226	Lemma	`s552`	Lemma s552: run 7524 k551 = inl k552.	L1805	new
1227	Definition	`k553`	Definition k553 := mk [2;2;6;1;8;1;12;1;9;1;8;1;12;1;8;2;13;2] 898372 2.	L1806	new
1228	Lemma	`s553`	Lemma s553: run 8068 k552 = inl k553.	L1807	new
1229	Definition	`k554`	Definition k554 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1] 900138 18.	L1808	new
1230	Lemma	`s554`	Lemma s554: run 8133 k553 = inl k554.	L1809	new
1231	Definition	`k555`	Definition k555 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 880319 21523.	L1810	new
1232	Lemma	`s555`	Lemma s555: run 7546 k554 = inl k555.	L1811	new
1233	Definition	`k556`	Definition k556 := mk [3;1;2;2;9;4;3;1;2;1;3;2;8;1;9;1;12;2] 903635 11.	L1812	new
1234	Lemma	`s556`	Lemma s556: run 8085 k555 = inl k556.	L1813	new
1235	Definition	`k557`	Definition k557 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;2] 905411 9.	L1814	new
1236	Lemma	`s557`	Lemma s557: run 8075 k556 = inl k557.	L1815	new
1237	Definition	`k558`	Definition k558 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 907122 92.	L1816	new
1238	Lemma	`s558`	Lemma s558: run 8477 k557 = inl k558.	L1817	new
1239	Definition	`k559`	Definition k559 := mk [8;1;4;1;4;1;13;2;12;2;8;1;12;1] 908968 3.	L1818	new
1240	Lemma	`s559`	Lemma s559: run 7752 k558 = inl k559.	L1819	new
1241	Definition	`k560`	Definition k560 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1] 910599 3.	L1820	new
1242	Lemma	`s560`	Lemma s560: run 7504 k559 = inl k560.	L1821	new
1243	Definition	`k561`	Definition k561 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;3] 912425 4.	L1822	new
1244	Lemma	`s561`	Lemma s561: run 8073 k560 = inl k561.	L1823	new
1245	Definition	`k562`	Definition k562 := mk [2;1;5;1;7;1;6;1;8;1;13;1;9;1;8;1;9;1;12;1;9;1;13;1] 914127 2.	L1824	new
1246	Lemma	`s562`	Lemma s562: run 7798 k561 = inl k562.	L1825	new
1247	Definition	`k563`	Definition k563 := mk [2;2;6;1;12;1;13;1;8;1;13;1;12;2;9;1;8;1;13;1] 915936 2.	L1826	new
1248	Lemma	`s563`	Lemma s563: run 8355 k562 = inl k563.	L1827	new
1249	Definition	`k564`	Definition k564 := mk [2;1;9;1;13;1;8;1;9;1;13;3;12;1] 917822 3.	L1828	new
1250	Lemma	`s564`	Lemma s564: run 8311 k563 = inl k564.	L1829	new
1251	Definition	`k565`	Definition k565 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;1] 584081 335371.	L1830	new
1252	Lemma	`s565`	Lemma s565: run 6768 k564 = inl k565.	L1831	new
1253	Definition	`k566`	Definition k566 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1] 920213 213.	L1832	new
1254	Lemma	`s566`	Lemma s566: run 3582 k565 = inl k566.	L1833	new
1255	Definition	`k567`	Definition k567 := mk [7;1;6;1;8;1;9;1;8;1;9;1;13;1;9;2;12;2] 921374 2.	L1834	new
1256	Lemma	`s567`	Lemma s567: run 4170 k566 = inl k567.	L1835	new
1257	Definition	`k568`	Definition k568 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;9;2;13;1;12;1;13;1] 923206 30.	L1836	new
1258	Lemma	`s568`	Lemma s568: run 7866 k567 = inl k568.	L1837	new
1259	Definition	`k569`	Definition k569 := mk [4;1;4;1;9;2;13;2] 925124 5.	L1838	new
1260	Lemma	`s569`	Lemma s569: run 8043 k568 = inl k569.	L1839	new
1261	Definition	`k570`	Definition k570 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 598856 327940.	L1840	new
1262	Lemma	`s570`	Lemma s570: run 6964 k569 = inl k570.	L1841	new
1263	Definition	`k571`	Definition k571 := mk [2;1;5;1;7;1;6;1;12;1;13;3;12;2;13;2] 928564 2.	L1842	new
1264	Lemma	`s571`	Lemma s571: run 7538 k570 = inl k571.	L1843	new
1265	Definition	`k572`	Definition k572 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 923170 7174.	L1844	new
1266	Lemma	`s572`	Lemma s572: run 8073 k571 = inl k572.	L1845	new
1267	Definition	`k573`	Definition k573 := mk [3;1;2;2;9;6;3;1;2;1;3;1] 931210 982.	L1846	new
1268	Lemma	`s573`	Lemma s573: run 8374 k572 = inl k573.	L1847	new
1269	Definition	`k574`	Definition k574 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;8;1;13;1] 933959 4.	L1848	new
1270	Lemma	`s574`	Lemma s574: run 8234 k573 = inl k574.	L1849	new
1271	Definition	`k575`	Definition k575 := mk [3;1;2;2;3;1;2;1;3;2;8;2;12;1;13;1;8;1;12;1;13;1] 935691 3.	L1850	new
1272	Lemma	`s575`	Lemma s575: run 7545 k574 = inl k575.	L1851	new
1273	Definition	`k576`	Definition k576 := mk [3;1;12;1;13;1;12;1;8;1;12;1;9;1;13;2;9;1;13;1] 937535 2.	L1852	new
1274	Lemma	`s576`	Lemma s576: run 8042 k575 = inl k576.	L1853	new
1275	Definition	`k577`	Definition k577 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;4;3;1] 937742 1541.	L1854	new
1276	Lemma	`s577`	Lemma s577: run 8309 k576 = inl k577.	L1855	new
1277	Definition	`k578`	Definition k578 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;2;1;9;1;12;2] 940515 612.	L1856	new
1278	Lemma	`s578`	Lemma s578: run 8197 k577 = inl k578.	L1857	new
1279	Definition	`k579`	Definition k579 := mk [11;1;7;1;6;1;9;1;8;1;12;1;9;1;12;2] 942772 2.	L1858	new
1280	Lemma	`s579`	Lemma s579: run 7354 k578 = inl k579.	L1859	new
1281	Definition	`k580`	Definition k580 := mk [3;1;2;3;9;1;12;2;9;1;12;2;9;1;13;1] 944611 7.	L1860	new
1282	Lemma	`s580`	Lemma s580: run 7871 k579 = inl k580.	L1861	new
1283	Definition	`k581`	Definition k581 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 946314 100.	L1862	new
1284	Lemma	`s581`	Lemma s581: run 8206 k580 = inl k581.	L1863	new
1285	Definition	`k582`	Definition k582 := mk [2;1;13;2;8;1;12;1;9;1;12;2] 948228 4.	L1864	new
1286	Lemma	`s582`	Lemma s582: run 8233 k581 = inl k582.	L1865	new
1287	Definition	`k583`	Definition k583 := mk [2;2;6;1;9;1;8;1;12;1;8;1;13;1;8;1;13;1;8;1;13;1] 949902 2.	L1866	new
1288	Lemma	`s583`	Lemma s583: run 7707 k582 = inl k583.	L1867	new
1289	Definition	`k584`	Definition k584 := mk [4;1;4;1;9;2;13;1;9;1;8;1;13;1] 951669 3.	L1868	new
1290	Lemma	`s584`	Lemma s584: run 6911 k583 = inl k584.	L1869	new
1291	Definition	`k585`	Definition k585 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;9;1;13;1] 952917 7.	L1870	new
1292	Lemma	`s585`	Lemma s585: run 4944 k584 = inl k585.	L1871	new
1293	Definition	`k586`	Definition k586 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;1;3;1] 954510 5.	L1872	new
1294	Lemma	`s586`	Lemma s586: run 6991 k585 = inl k586.	L1873	new
1295	Definition	`k587`	Definition k587 := mk [2;1;13;1;8;1;9;2;13;2;12;1;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 954867 2.	L1874	new
1296	Lemma	`s587`	Lemma s587: run 1778 k586 = inl k587.	L1875	new
1297	Definition	`k588`	Definition k588 := mk [3;1;12;1;13;1;9;2;8;1;12;1;8;1;9;1;12;1;13;1] 956505 2.	L1876	new
1298	Lemma	`s588`	Lemma s588: run 7372 k587 = inl k588.	L1877	new
1299	Definition	`k589`	Definition k589 := mk [3;1;2;4;3;2;8;1;9;2;8;1;13;1;8;1;12;1;13;1] 958410 4.	L1878	new
1300	Lemma	`s589`	Lemma s589: run 8000 k588 = inl k589.	L1879	new
1301	Definition	`k590`	Definition k590 := mk [2;1;3;1;2;1;3;1;9;1;12;1;13;1;8;1;13;3;12;1;13;1] 960266 2.	L1880	new
1302	Lemma	`s590`	Lemma s590: run 6943 k589 = inl k590.	L1881	new
1303	Definition	`k591`	Definition k591 := mk [2;2;4;1;13;1;9;1;13;1;8;1;9;1;13;1;9;1;8;1;13;1] 962165 2.	L1882	new
1304	Lemma	`s591`	Lemma s591: run 7338 k590 = inl k591.	L1883	new
1305	Definition	`k592`	Definition k592 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 535439 428427.	L1884	new
1306	Lemma	`s592`	Lemma s592: run 7555 k591 = inl k592.	L1885	new
1307	Definition	`k593`	Definition k593 := mk [3;1;9;3;8;1;9;1;12;1;13;1;8;1;13;2] 965563 2.	L1886	new
1308	Lemma	`s593`	Lemma s593: run 8010 k592 = inl k593.	L1887	new
1309	Definition	`k594`	Definition k594 := mk [3;1;2;2;9;2;2;1;13;2;8;1;13;1] 967075 65.	L1888	new
1310	Lemma	`s594`	Lemma s594: run 7161 k593 = inl k594.	L1889	new
1311	Definition	`k595`	Definition k595 := mk [2;2;4;1;12;3;8;1;9;1;12;1;13;1;12;1;9;1;13;1] 968867 2.	L1890	new
1312	Lemma	`s595`	Lemma s595: run 7414 k594 = inl k595.	L1891	new
1313	Definition	`k596`	Definition k596 := mk [3;1;2;2;9;4;3;1;2;4;3;2;9;1;8;1;13;1] 968985 1694.	L1892	new
1314	Lemma	`s596`	Lemma s596: run 8247 k595 = inl k596.	L1893	new
1315	Definition	`k597`	Definition k597 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;1;3;1] 862835 109577.	L1894	new
1316	Lemma	`s597`	Lemma s597: run 8495 k596 = inl k597.	L1895	new
1317	Definition	`k598`	Definition k598 := mk [3;1;9;1;8;1;12;1;13;1;8;1;9;3;13;2] 974107 2.	L1896	new
1318	Lemma	`s598`	Lemma s598: run 8475 k597 = inl k598.	L1897	new
1319	Definition	`k599`	Definition k599 := mk [3;1;2;2;9;8;2;1;13;1] 906267 69640.	L1898	new
1320	Lemma	`s599`	Lemma s599: run 8256 k598 = inl k599.	L1899	new
1321	Definition	`k600`	Definition k600 := mk [3;1;2;3;3;1;6;1;9;1;12;1;9;1;8;1;13;1;8;2;13;1] 977710 5.	L1900	new
1322	Lemma	`s600`	Lemma s600: run 8314 k599 = inl k600.	L1901	new
1323	Definition	`k601`	Definition k601 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 951688 27285.	L1902	new
1324	Lemma	`s601`	Lemma s601: run 6215 k600 = inl k601.	L1903	new
1325	Definition	`k602`	Definition k602 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;1;3;1] 980629 14.	L1904	new
1326	Lemma	`s602`	Lemma s602: run 8462 k601 = inl k602.	L1905	new
1327	Definition	`k603`	Definition k603 := mk [3;1;2;2;9;3;2;1;13;1] 982363 94.	L1906	new
1328	Lemma	`s603`	Lemma s603: run 8633 k602 = inl k603.	L1907	new
1329	Definition	`k604`	Definition k604 := mk [2;1;12;1;13;1;12;1;9;1;12;1;9;1;13;1;12;1;13;1] 984037 3.	L1908	new
1330	Lemma	`s604`	Lemma s604: run 7433 k603 = inl k604.	L1909	new
1331	Definition	`k605`	Definition k605 := mk [3;1;8;1;9;1;13;1;9;2;8;1;12;1;13;1] 985604 3.	L1910	new
1332	Lemma	`s605`	Lemma s605: run 6995 k604 = inl k605.	L1911	new
1333	Definition	`k606`	Definition k606 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;1;8;1;4;1;4;1;13;1] 987312 13.	L1912	new
1334	Lemma	`s606`	Lemma s606: run 7948 k605 = inl k606.	L1913	new
1335	Definition	`k607`	Definition k607 := mk [3;1;13;1;9;1;13;2;9;1;8;1;13;1] 989092 5.	L1914	new
1336	Lemma	`s607`	Lemma s607: run 8318 k606 = inl k607.	L1915	new
1337	Definition	`k608`	Definition k608 := mk [3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;13;1;9;1;8;1;13;1] 990792 5.	L1916	new
1338	Lemma	`s608`	Lemma s608: run 8286 k607 = inl k608.	L1917	new
1339	Definition	`k609`	Definition k609 := mk [3;1;2;2;9;6;3;1;2;4;3;1;2;1;13;1] 978139 14386.	L1918	new
1340	Lemma	`s609`	Lemma s609: run 7800 k608 = inl k609.	L1919	new
1341	Definition	`k610`	Definition k610 := mk [3;1;2;2;3;1;2;3;9;2;12;2;8;1;9;1;8;1;13;1] 994305 18.	L1920	new
1342	Lemma	`s610`	Lemma s610: run 8042 k609 = inl k610.	L1921	new
1343	Definition	`k611`	Definition k611 := mk [3;1;2;2;3;1;2;3;9;1;8;1;13;1;12;3;9;1] 996089 13.	L1922	new
1344	Lemma	`s611`	Lemma s611: run 8300 k610 = inl k611.	L1923	new
1345	Definition	`k612`	Definition k612 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 996367 1596.	L1924	new
1346	Lemma	`s612`	Lemma s612: run 8499 k611 = inl k612.	L1925	new
1347	Definition	`k613`	Definition k613 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 785667 214022.	L1926	new
1348	Lemma	`s613`	Lemma s613: run 8331 k612 = inl k613.	L1927	new
1349	Definition	`k614`	Definition k614 := mk [3;1;9;3;8;1;12;1;9;1;8;1;13;2] 1001474 3.	L1928	new
1350	Lemma	`s614`	Lemma s614: run 8382 k613 = inl k614.	L1929	new
1351	Definition	`k615`	Definition k615 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1] 1002001 1289.	L1930	new
1352	Lemma	`s615`	Lemma s615: run 8672 k614 = inl k615.	L1931	new
1353	Definition	`k616`	Definition k616 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;6;1;9;1;8;1;13;1] 1005074 12.	L1932	new
1354	Lemma	`s616`	Lemma s616: run 8864 k615 = inl k616.	L1933	new
1355	Definition	`k617`	Definition k617 := mk [2;1;8;1;12;1;9;1;8;1;12;2;8;1;12;1;13;1] 1006878 2.	L1934	new
1356	Lemma	`s617`	Lemma s617: run 8628 k616 = inl k617.	L1935	new
1357	Definition	`k618`	Definition k618 := mk [3;1;9;1;13;1;8;2;12;1;13;1] 1008645 3.	L1936	new
1358	Lemma	`s618`	Lemma s618: run 8513 k617 = inl k618.	L1937	new
1359	Definition	`k619`	Definition k619 := mk [3;1;9;2;12;1;13;2;8;1;12;3] 1010446 2.	L1938	new
1360	Lemma	`s619`	Lemma s619: run 8455 k618 = inl k619.	L1939	new
1361	Definition	`k620`	Definition k620 := mk [2;1;9;2;3;1;2;1;3;1;12;2;13;1;9;1;13;1;8;1;13;1] 1012207 2.	L1940	new
1362	Lemma	`s620`	Lemma s620: run 8659 k619 = inl k620.	L1941	new
1363	Definition	`k621`	Definition k621 := mk [3;1;9;2;12;1;13;1;8;1;13;1;12;1;13;1;8;1;13;1] 1014021 2.	L1942	new
1364	Lemma	`s621`	Lemma s621: run 8663 k620 = inl k621.	L1943	new
1365	Definition	`k622`	Definition k622 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1015821 5.	L1944	new
1366	Lemma	`s622`	Lemma s622: run 8746 k621 = inl k622.	L1945	new
1367	Definition	`k623`	Definition k623 := mk [3;1;2;2;9;5;3;1;2;1;3;1;2;1;13;1] 1017333 142.	L1946	new
1368	Lemma	`s623`	Lemma s623: run 7398 k622 = inl k623.	L1947	new
1369	Definition	`k624`	Definition k624 := mk [3;1;2;2;9;2;2;1;9;1;12;1;9;1;8;1;13;1] 1019142 51.	L1948	new
1370	Lemma	`s624`	Lemma s624: run 7971 k623 = inl k624.	L1949	new
1371	Definition	`k625`	Definition k625 := mk [3;1;2;2;9;6;2;1;13;1] 1005842 15013.	L1950	new
1372	Lemma	`s625`	Lemma s625: run 8042 k624 = inl k625.	L1951	new
1373	Definition	`k626`	Definition k626 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;8;3;13;1] 1022619 5.	L1952	new
1374	Lemma	`s626`	Lemma s626: run 8516 k625 = inl k626.	L1953	new
1375	Definition	`k627`	Definition k627 := mk [2;2;4;1;8;1;9;1;13;1;9;2;8;1;12;1;8;1;13;1] 1024457 2.	L1954	new
1376	Lemma	`s627`	Lemma s627: run 8306 k626 = inl k627.	L1955	new
1377	Definition	`k628`	Definition k628 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;1;12;1;8;1;13;1] 1026163 103.	L1956	new
1378	Lemma	`s628`	Lemma s628: run 7977 k627 = inl k628.	L1957	new
1379	Definition	`k629`	Definition k629 := mk [3;1;2;2;3;1;2;1;3;1;5;1;6;1;13;1;9;1;8;1;13;2] 1028087 4.	L1958	new
1380	Lemma	`s629`	Lemma s629: run 8310 k628 = inl k629.	L1959	new
1381	Definition	`k630`	Definition k630 := mk [2;2;4;1;12;2;13;1;9;1;12;1;13;1;8;1;12;1;13;1] 1029883 2.	L1960	new
1382	Lemma	`s630`	Lemma s630: run 8410 k629 = inl k630.	L1961	new
1383	Definition	`k631`	Definition k631 := mk [2;1;3;1;2;3;14;1;6;1;9;1;8;1;13;1;8;1;13;1;8;1;13;1] 1031616 2.	L1962	new
1384	Lemma	`s631`	Lemma s631: run 8273 k630 = inl k631.	L1963	new
1385	Definition	`k632`	Definition k632 := mk [3;1;2;2;9;5;3;1;2;4;3;1;4;1;4;1;13;1] 1031298 2097.	L1964	new
1386	Lemma	`s632`	Lemma s632: run 8011 k631 = inl k632.	L1965	new
1387	Definition	`k633`	Definition k633 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1002672 31236.	L1966	new
1388	Lemma	`s633`	Lemma s633: run 2658 k632 = inl k633.	L1967	new
1389	Definition	`k634`	Definition k634 := mk [3;1;13;1;9;1;13;1;9;1;8;2;13;1] 1035637 4.	L1968	new
1390	Lemma	`s634`	Lemma s634: run 8042 k633 = inl k634.	L1969	new
1391	Definition	`k635`	Definition k635 := mk [7;1;6;1;5;1;7;1;6;1;8;1;13;1;8;1;13;1;12;3] 1037292 2.	L1970	new
1392	Lemma	`s635`	Lemma s635: run 7692 k634 = inl k635.	L1971	new
1393	Definition	`k636`	Definition k636 := mk [2;1;13;1;12;1;13;2;9;1;8;1;13;1;8;1;13;1] 1039142 3.	L1972	new
1394	Lemma	`s636`	Lemma s636: run 8539 k635 = inl k636.	L1973	new
1395	Definition	`k637`	Definition k637 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1009035 31773.	L1974	new
1396	Lemma	`s637`	Lemma s637: run 7522 k636 = inl k637.	L1975	new
1397	Definition	`k638`	Definition k638 := mk [3;1;9;1;12;1;9;1;12;2;13;1;8;2;13;1] 1042359 2.	L1976	new
1398	Lemma	`s638`	Lemma s638: run 7283 k637 = inl k638.	L1977	new
1399	Definition	`k639`	Definition k639 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;1;12;1;13;1] 1044165 86.	L1978	new
1400	Lemma	`s639`	Lemma s639: run 7954 k638 = inl k639.	L1979	new
1401	Definition	`k640`	Definition k640 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;8;1;4;1;4;1;12;1;13;1] 1046134 3.	L1980	new
1402	Lemma	`s640`	Lemma s640: run 8513 k639 = inl k640.	L1981	new
1403	Definition	`k641`	Definition k641 := mk [2;1;5;1;7;1;6;1;12;1;8;1;13;1;12;4;9;3;12;1] 1048042 2.	L1982	new
1404	Lemma	`s641`	Lemma s641: run 8338 k640 = inl k641.	L1983	new
1405	Definition	`k642`	Definition k642 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1049673 10.	L1984	new
1406	Lemma	`s642`	Lemma s642: run 6655 k641 = inl k642.	L1985	new
1407	Definition	`k643`	Definition k643 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 1051223 5.	L1986	new
1408	Lemma	`s643`	Lemma s643: run 6115 k642 = inl k643.	L1987	new
1409	Definition	`k644`	Definition k644 := mk [6;1;4;1;12;1;9;3;13;1;8;2;13;1] 1052529 2.	L1988	new
1410	Lemma	`s644`	Lemma s644: run 5314 k643 = inl k644.	L1989	new
1411	Definition	`k645`	Definition k645 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2] 1053328 517.	L1990	new
1412	Lemma	`s645`	Lemma s645: run 5771 k644 = inl k645.	L1991	new
1413	Definition	`k646`	Definition k646 := mk [3;1;2;2;9;9;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;2;3;1] 527885 526343.	L1992	new
1414	Lemma	`s646`	Lemma s646: run 1640 k645 = inl k646.	L1993	new
1415	Definition	`k647`	Definition k647 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;8;3;13;1] 1055764 31.	L1994	new
1416	Lemma	`s647`	Lemma s647: run 6627 k646 = inl k647.	L1995	new
1417	Definition	`k648`	Definition k648 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1057388 41.	L1996	new
1418	Lemma	`s648`	Lemma s648: run 6548 k647 = inl k648.	L1997	new
1419	Definition	`k649`	Definition k649 := mk [3;1;2;2;9;7;2;1;13;1] 1018094 40964.	L1998	new
1420	Lemma	`s649`	Lemma s649: run 6302 k648 = inl k649.	L1999	new
1421	Definition	`k650`	Definition k650 := mk [3;1;2;2;9;9;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;2;2;1;3;1] 780130 280282.	L2000	new
1422	Lemma	`s650`	Lemma s650: run 5372 k649 = inl k650.	L2001	new
1423	Definition	`k651`	Definition k651 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;3;3;1;2;1;3;2;2;1;3;1] 929123 131501.	L2002	new
1424	Lemma	`s651`	Lemma s651: run 962 k650 = inl k651.	L2003	new
1425	Definition	`k652`	Definition k652 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;8;3;1] 1060791 51.	L2004	new
1426	Lemma	`s652`	Lemma s652: run 808 k651 = inl k652.	L2005	new
1427	Definition	`k653`	Definition k653 := mk [3;1;2;2;9;2;2;1;9;2;8;1;13;1;8;2;13;1] 1062341 60.	L2006	new
1428	Lemma	`s653`	Lemma s653: run 6581 k652 = inl k653.	L2007	new
1429	Definition	`k654`	Definition k654 := mk [3;1;2;2;9;2;2;1;13;1;12;1;9;2;12;1;13;1] 1063835 38.	L2008	new
1430	Lemma	`s654`	Lemma s654: run 6496 k653 = inl k654.	L2009	new
1431	Definition	`k655`	Definition k655 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;2;2;1;3;1] 1065169 104.	L2010	new
1432	Lemma	`s655`	Lemma s655: run 6230 k654 = inl k655.	L2011	new
1433	Definition	`k656`	Definition k656 := mk [7;1;6;1;8;3;9;1;8;1;9;2;12;1] 1066469 2.	L2012	new
1434	Lemma	`s656`	Lemma s656: run 4890 k655 = inl k656.	L2013	new
1435	Definition	`k657`	Definition k657 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;2;8;1;13;1] 1067661 594.	L2014	new
1436	Lemma	`s657`	Lemma s657: run 7533 k656 = inl k657.	L2015	new
1437	Definition	`k658`	Definition k658 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 1068511 259.	L2016	new
1438	Lemma	`s658`	Lemma s658: run 2528 k657 = inl k658.	L2017	new
1439	Definition	`k659`	Definition k659 := mk [3;1;13;2;12;2;8;2;12;1;8;1;13;1] 1070003 3.	L2018	new
1440	Lemma	`s659`	Lemma s659: run 5466 k658 = inl k659.	L2019	new
1441	Definition	`k660`	Definition k660 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1071393 3.	L2020	new
1442	Lemma	`s660`	Lemma s660: run 6364 k659 = inl k660.	L2021	new
1443	Definition	`k661`	Definition k661 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;2;3;1] 1072446 644.	L2022	new
1444	Lemma	`s661`	Lemma s661: run 7785 k660 = inl k661.	L2023	new
1445	Definition	`k662`	Definition k662 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;13;1;12;1;8;1;13;1] 1074837 15.	L2024	new
1446	Lemma	`s662`	Lemma s662: run 7652 k661 = inl k662.	L2025	new
1447	Definition	`k663`	Definition k663 := mk [3;1;2;2;9;8;2;1;13;1] 836400 240195.	L2026	new
1448	Lemma	`s663`	Lemma s663: run 7815 k662 = inl k663.	L2027	new
1449	Definition	`k664`	Definition k664 := mk [2;1;9;2;2;1;4;1;13;1;9;1;12;1;9;1;8;1;12;1;13;1] 1078244 2.	L2028	new
1450	Lemma	`s664`	Lemma s664: run 7889 k663 = inl k664.	L2029	new
1451	Definition	`k665`	Definition k665 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1079911 86.	L2030	new
1452	Lemma	`s665`	Lemma s665: run 8000 k664 = inl k665.	L2031	new
1453	Definition	`k666`	Definition k666 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;2;3;1;2;1;3;1] 1081591 101.	L2032	new
1454	Lemma	`s666`	Lemma s666: run 7429 k665 = inl k666.	L2033	new
1455	Definition	`k667`	Definition k667 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 1082826 276.	L2034	new
1456	Lemma	`s667`	Lemma s667: run 5330 k666 = inl k667.	L2035	new
1457	Definition	`k668`	Definition k668 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1;2;2;3;1] 1084072 214.	L2036	new
1458	Lemma	`s668`	Lemma s668: run 4237 k667 = inl k668.	L2037	new
1459	Definition	`k669`	Definition k669 := mk [3;1;12;2;8;2;13;1;9;1;13;1;9;2;13;1;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1;2;2;3;2;2;1;3;1] 1084609 2.	L2038	new
1460	Lemma	`s669`	Lemma s669: run 1155 k668 = inl k669.	L2039	new
1461	Definition	`k670`	Definition k670 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 1002781 82269.	L2040	new
1462	Lemma	`s670`	Lemma s670: run 1879 k669 = inl k670.	L2041	new
1463	Definition	`k671`	Definition k671 := mk [3;1;2;2;3;1;2;1;3;1;2;1;13;1;12;1;13;1;9;1;13;1;9;2;13;1] 1086652 4.	L2042	new
1464	Lemma	`s671`	Lemma s671: run 6602 k670 = inl k671.	L2043	new
1465	Definition	`k672`	Definition k672 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;2;13;1;12;3;8;1;13;1] 1087809 2.	L2044	new
1466	Lemma	`s672`	Lemma s672: run 4803 k671 = inl k672.	L2045	new
1467	Definition	`k673`	Definition k673 := mk [3;1;9;1;8;1;9;2;13;2;9;2;12;1;13;1] 1089647 3.	L2046	new
1468	Lemma	`s673`	Lemma s673: run 7417 k672 = inl k673.	L2047	new
1469	Definition	`k674`	Definition k674 := mk [2;1;13;1;9;1;8;1;13;3;12;2;13;1] 1090854 2.	L2048	new
1470	Lemma	`s674`	Lemma s674: run 4296 k673 = inl k674.	L2049	new
1471	Definition	`k675`	Definition k675 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1] 1092605 3.	L2050	new
1472	Lemma	`s675`	Lemma s675: run 6721 k674 = inl k675.	L2051	new
1473	Definition	`k676`	Definition k676 := mk [2;2;12;2;4;1;12;2;13;1;9;1;8;1;13;2] 1094405 2.	L2052	new
1474	Lemma	`s676`	Lemma s676: run 7316 k675 = inl k676.	L2053	new
1475	Definition	`k677`	Definition k677 := mk [2;2;12;1;4;1;12;1;8;1;9;1;13;2;9;2;12;1] 1096134 2.	L2054	new
1476	Lemma	`s677`	Lemma s677: run 7738 k676 = inl k677.	L2055	new
1477	Definition	`k678`	Definition k678 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2] 1097813 40.	L2056	new
1478	Lemma	`s678`	Lemma s678: run 7275 k677 = inl k678.	L2057	new
1479	Definition	`k679`	Definition k679 := mk [3;1;2;2;9;8;3;1;2;2;3;1;2;1;3;1] 689069 410536.	L2058	new
1480	Lemma	`s679`	Lemma s679: run 7344 k678 = inl k679.	L2059	new
1481	Definition	`k680`	Definition k680 := mk [2;2;6;1;8;1;9;1;13;1;8;1;13;1;8;1;9;1;13;2] 1101267 2.	L2060	new
1482	Lemma	`s680`	Lemma s680: run 7728 k679 = inl k680.	L2061	new
1483	Definition	`k681`	Definition k681 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2] 1101635 1317.	L2062	new
1484	Lemma	`s681`	Lemma s681: run 7927 k680 = inl k681.	L2063	new
1485	Definition	`k682`	Definition k682 := mk [2;1;9;4;2;1;4;1;8;1;12;2;8;1;13;1] 1104641 2.	L2064	new
1486	Lemma	`s682`	Lemma s682: run 8170 k681 = inl k682.	L2065	new
1487	Definition	`k683`	Definition k683 := mk [2;1;12;1;9;2;8;1;13;1;12;1] 1106298 4.	L2066	new
1488	Lemma	`s683`	Lemma s683: run 7963 k682 = inl k683.	L2067	new
1489	Definition	`k684`	Definition k684 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1] 1108023 25.	L2068	new
1490	Lemma	`s684`	Lemma s684: run 7825 k683 = inl k684.	L2069	new
1491	Definition	`k685`	Definition k685 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1;2;1;13;1] 1109716 19.	L2070	new
1492	Lemma	`s685`	Lemma s685: run 7664 k684 = inl k685.	L2071	new
1493	Definition	`k686`	Definition k686 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;13;1;8;1;13;1] 1111330 29.	L2072	new
1494	Lemma	`s686`	Lemma s686: run 7810 k685 = inl k686.	L2073	new
1495	Definition	`k687`	Definition k687 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1112453 125.	L2074	new
1496	Lemma	`s687`	Lemma s687: run 5987 k686 = inl k687.	L2075	new
1497	Definition	`k688`	Definition k688 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;2;1;3;1] 1112059 2051.	L2076	new
1498	Lemma	`s688`	Lemma s688: run 7244 k687 = inl k688.	L2077	new
1499	Definition	`k689`	Definition k689 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1106317 9443.	L2078	new
1500	Lemma	`s689`	Lemma s689: run 6521 k688 = inl k689.	L2079	new
1501	Definition	`k690`	Definition k690 := mk [3;1;2;2;9;3;2;1;9;1;12;1;13;1] 1117228 253.	L2080	new
1502	Lemma	`s690`	Lemma s690: run 7275 k689 = inl k690.	L2081	new
1503	Definition	`k691`	Definition k691 := mk [3;1;2;2;9;4;2;1;13;1;8;2;13;1] 1118217 905.	L2082	new
1504	Lemma	`s691`	Lemma s691: run 7682 k690 = inl k691.	L2083	new
1505	Definition	`k692`	Definition k692 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1120788 4.	L2084	new
1506	Lemma	`s692`	Lemma s692: run 7846 k691 = inl k692.	L2085	new
1507	Definition	`k693`	Definition k693 := mk [2;1;13;1;8;1;9;1;8;1;12;1;8;1;12;1;13;1] 1122614 2.	L2086	new
1508	Lemma	`s693`	Lemma s693: run 7803 k692 = inl k693.	L2087	new
1509	Definition	`k694`	Definition k694 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;2] 1123442 910.	L2088	new
1510	Lemma	`s694`	Lemma s694: run 7621 k693 = inl k694.	L2089	new
1511	Definition	`k695`	Definition k695 := mk [3;1;9;1;13;2;12;1;9;2;8;1;9;1;13;1] 1126204 5.	L2090	new
1512	Lemma	`s695`	Lemma s695: run 7730 k694 = inl k695.	L2091	new
1513	Definition	`k696`	Definition k696 := mk [4;1;4;1;12;1;9;1;12;1;9;1;12;2;13;1] 1127927 3.	L2092	new
1514	Lemma	`s696`	Lemma s696: run 8133 k695 = inl k696.	L2093	new
1515	Definition	`k697`	Definition k697 := mk [3;1;9;1;12;1;8;1;9;1;8;1;13;3] 1129684 3.	L2094	new
1516	Lemma	`s697`	Lemma s697: run 8176 k696 = inl k697.	L2095	new
1517	Definition	`k698`	Definition k698 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1131439 8.	L2096	new
1518	Lemma	`s698`	Lemma s698: run 7992 k697 = inl k698.	L2097	new
1519	Definition	`k699`	Definition k699 := mk [2;1;3;1;2;2;3;1;2;1;3;1;2;1;4;1;13;2;9;2;8;1;13;2] 1133161 2.	L2098	new
1520	Lemma	`s699`	Lemma s699: run 8071 k698 = inl k699.	L2099	new
1521	Definition	`k700`	Definition k700 := mk [3;1;2;2;9;2;3;1;2;4;3;2;13;1;9;1;8;1;13;2] 1134819 84.	L2100	new
1522	Lemma	`s700`	Lemma s700: run 8127 k699 = inl k700.	L2101	new
1523	Definition	`k701`	Definition k701 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;1;2;1;9;1;13;1] 1136670 26.	L2102	new
1524	Lemma	`s701`	Lemma s701: run 8285 k700 = inl k701.	L2103	new
1525	Definition	`k702`	Definition k702 := mk [2;2;4;1;13;2;9;1;13;1;12;1;9;1;12;1;8;1;13;1] 1138551 2.	L2104	new
1526	Lemma	`s702`	Lemma s702: run 8309 k701 = inl k702.	L2105	new
1527	Definition	`k703`	Definition k703 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;4;1;4;1;9;1;13;1] 1140044 46.	L2106	new
1528	Lemma	`s703`	Lemma s703: run 7244 k702 = inl k703.	L2107	new
1529	Definition	`k704`	Definition k704 := mk [3;1;2;2;9;5;2;1;13;1;9;2;8;1;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1138782 2307.	L2108	new
1530	Lemma	`s704`	Lemma s704: run 4608 k703 = inl k704.	L2109	new
1531	Definition	`k705`	Definition k705 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;1;3;1;2;1;9;1;13;2] 1140892 771.	L2110	new
1532	Lemma	`s705`	Lemma s705: run 2653 k704 = inl k705.	L2111	new
1533	Definition	`k706`	Definition k706 := mk [3;1;2;2;9;5;3;1;2;4;3;2;9;6;3;1;2;4;3;1] 1141951 1369.	L2112	new
1534	Lemma	`s706`	Lemma s706: run 7585 k705 = inl k706.	L2113	new
1535	Definition	`k707`	Definition k707 := mk [3;1;2;2;9;6;3;1;2;4;3;1;2;1;9;1;12;1] 1133690 11267.	L2114	new
1536	Lemma	`s707`	Lemma s707: run 7780 k706 = inl k707.	L2115	new
1537	Definition	`k708`	Definition k708 := mk [3;1;2;2;9;4;2;1;9;1;8;1;12;1] 1145741 965.	L2116	new
1538	Lemma	`s708`	Lemma s708: run 8121 k707 = inl k708.	L2117	new
1539	Definition	`k709`	Definition k709 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1100081 48392.	L2118	new
1540	Lemma	`s709`	Lemma s709: run 7354 k708 = inl k709.	L2119	new
1541	Definition	`k710`	Definition k710 := mk [3;1;9;1;13;1;12;1;13;1;8;1;13;1] 1150081 4.	L2120	new
1542	Lemma	`s710`	Lemma s710: run 6923 k709 = inl k710.	L2121	new
1543	Definition	`k711`	Definition k711 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;9;1;13;1;8;1;12;1;13;1] 1151856 33.	L2122	new
1544	Lemma	`s711`	Lemma s711: run 8129 k710 = inl k711.	L2123	new
1545	Definition	`k712`	Definition k712 := mk [2;1;13;1;8;2;12;1;8;1;12;2;13;1] 1153657 3.	L2124	new
1546	Lemma	`s712`	Lemma s712: run 8128 k711 = inl k712.	L2125	new
1547	Definition	`k713`	Definition k713 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;5;3;1;2;1;3;1] 1155299 84.	L2126	new
1548	Lemma	`s713`	Lemma s713: run 7455 k712 = inl k713.	L2127	new
1549	Definition	`k714`	Definition k714 := mk [3;1;13;1;9;1;13;2;9;1;13;2] 1157123 3.	L2128	new
1550	Lemma	`s714`	Lemma s714: run 7767 k713 = inl k714.	L2129	new
1551	Definition	`k715`	Definition k715 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1114237 44549.	L2130	new
1552	Lemma	`s715`	Lemma s715: run 7145 k714 = inl k715.	L2131	new
1553	Definition	`k716`	Definition k716 := mk [3;1;2;2;9;4;2;1;13;1;8;1;13;1] 1159587 906.	L2132	new
1554	Lemma	`s716`	Lemma s716: run 7707 k715 = inl k716.	L2133	new
1555	Definition	`k717`	Definition k717 := mk [3;1;2;2;9;7;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1044486 117764.	L2134	new
1556	Lemma	`s717`	Lemma s717: run 7978 k716 = inl k717.	L2135	new
1557	Definition	`k718`	Definition k718 := mk [2;1;12;1;9;1;8;1;12;2;13;1;8;1;9;1;12;1] 1163862 3.	L2136	new
1558	Lemma	`s718`	Lemma s718: run 7498 k717 = inl k718.	L2137	new
1559	Definition	`k719`	Definition k719 := mk [2;2;6;1;9;2;12;1;9;1;13;2;9;2;8;1;9;2;13;1] 1165601 2.	L2138	new
1560	Lemma	`s719`	Lemma s719: run 7700 k718 = inl k719.	L2139	new
1561	Definition	`k720`	Definition k720 := mk [3;1;2;2;9;4;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1166493 533.	L2140	new
1562	Lemma	`s720`	Lemma s720: run 6959 k719 = inl k720.	L2141	new
1563	Definition	`k721`	Definition k721 := mk [3;1;2;2;9;3;2;1;9;3;8;1;12;1] 1168400 82.	L2142	new
1564	Lemma	`s721`	Lemma s721: run 6581 k720 = inl k721.	L2143	new
1565	Definition	`k722`	Definition k722 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;13;1;8;1;12;1;8;1;9;1;12;1] 1170305 4.	L2144	new
1566	Lemma	`s722`	Lemma s722: run 8074 k721 = inl k722.	L2145	new
1567	Definition	`k723`	Definition k723 := mk [3;1;2;2;9;6;3;1;2;2;3;1;2;2;3;1;2;4;3;1] 1147371 24579.	L2146	new
1568	Lemma	`s723`	Lemma s723: run 7634 k722 = inl k723.	L2147	new
1569	Definition	`k724`	Definition k724 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;9;2;8;1;13;2] 1173607 101.	L2148	new
1570	Lemma	`s724`	Lemma s724: run 7922 k723 = inl k724.	L2149	new
1571	Definition	`k725`	Definition k725 := mk [2;1;9;2;2;1;6;1;12;2;9;1;12;1;8;1;13;2] 1175530 2.	L2150	new
1572	Lemma	`s725`	Lemma s725: run 8005 k724 = inl k725.	L2151	new
1573	Definition	`k726`	Definition k726 := mk [2;1;9;1;8;3;9;3;12;1] 1177399 3.	L2152	new
1574	Lemma	`s726`	Lemma s726: run 8204 k725 = inl k726.	L2153	new
1575	Definition	`k727`	Definition k727 := mk [3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1;8;1;12;1;8;1;9;1;13;2] 1179245 6.	L2154	new
1576	Lemma	`s727`	Lemma s727: run 8185 k726 = inl k727.	L2155	new
1577	Definition	`k728`	Definition k728 := mk [3;1;2;4;3;2;8;1;13;1;8;3;12;1;8;1;13;1] 1180941 4.	L2156	new
1578	Lemma	`s728`	Lemma s728: run 6298 k727 = inl k728.	L2157	new
1579	Definition	`k729`	Definition k729 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1179303 2494.	L2158	new
1580	Lemma	`s729`	Lemma s729: run 3179 k728 = inl k729.	L2159	new
1581	Definition	`k730`	Definition k730 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;4;3;2;9;3;13;2] 1183364 27.	L2160	new
1582	Lemma	`s730`	Lemma s730: run 6131 k729 = inl k730.	L2161	new
1583	Definition	`k731`	Definition k731 := mk [3;1;2;2;9;3;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;7;3;2] 1184850 261.	L2162	new
1584	Lemma	`s731`	Lemma s731: run 7155 k730 = inl k731.	L2163	new
1585	Definition	`k732`	Definition k732 := mk [2;1;3;1;2;2;3;1;2;1;3;1;9;1;8;1;9;1;8;1;9;1;13;1;9;1;12;1;3;1;9;1] 1186934 2.	L2164	new
1586	Lemma	`s732`	Lemma s732: run 7351 k731 = inl k732.	L2165	new
1587	Definition	`k733`	Definition k733 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;9;2;3;1;2;1;3;1] 1188437 13.	L2166	new
1588	Lemma	`s733`	Lemma s733: run 6260 k732 = inl k733.	L2167	new
1589	Definition	`k734`	Definition k734 := mk [2;2;4;1;12;1;13;1;9;1;13;2;9;1;13;1;9;1;8;1;13;1] 1190215 2.	L2168	new
1590	Lemma	`s734`	Lemma s734: run 6427 k733 = inl k734.	L2169	new
1591	Definition	`k735`	Definition k735 := mk [2;1;13;1;9;2;12;1;13;1;9;1;13;1;9;1;8;1;13;1] 1191997 2.	L2170	new
1592	Lemma	`s735`	Lemma s735: run 6925 k734 = inl k735.	L2171	new
1593	Definition	`k736`	Definition k736 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;1] 1193507 5.	L2172	new
1594	Lemma	`s736`	Lemma s736: run 6660 k735 = inl k736.	L2173	new
1595	Definition	`k737`	Definition k737 := mk [3;1;9;1;12;1;13;1;12;3;9;1;13;1;12;1;13;1] 1195211 2.	L2174	new
1596	Lemma	`s737`	Lemma s737: run 7404 k736 = inl k737.	L2175	new
1597	Definition	`k738`	Definition k738 := mk [3;1;2;2;3;1;2;1;3;1;4;1;4;1;12;1;9;2;8;1;13;2;12;1] 1196889 4.	L2176	new
1598	Lemma	`s738`	Lemma s738: run 6975 k737 = inl k738.	L2177	new
1599	Definition	`k739`	Definition k739 := mk [3;1;12;1;9;2;8;1;13;1;12;1;9;1;13;1;12;1;13;1;2;1;13;1] 1198484 2.	L2178	new
1600	Lemma	`s739`	Lemma s739: run 6898 k738 = inl k739.	L2179	new
1601	Definition	`k740`	Definition k740 := mk [3;1;2;2;9;2;3;1;2;2;3;1;2;1;3;1;2;1;12;1] 1199752 126.	L2180	new
1602	Lemma	`s740`	Lemma s740: run 6590 k739 = inl k740.	L2181	new
1603	Definition	`k741`	Definition k741 := mk [3;1;9;1;12;1;9;1;8;3;13;2] 1201594 3.	L2182	new
1604	Lemma	`s741`	Lemma s741: run 8100 k740 = inl k741.	L2183	new
1605	Definition	`k742`	Definition k742 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;13;1] 1203378 10.	L2184	new
1606	Lemma	`s742`	Lemma s742: run 7871 k741 = inl k742.	L2185	new
1607	Definition	`k743`	Definition k743 := mk [3;1;5;1;7;1;6;1;9;1;13;1;9;1;8;1;9;2;12;1;13;1] 1205163 2.	L2186	new
1608	Lemma	`s743`	Lemma s743: run 7754 k742 = inl k743.	L2187	new
1609	Definition	`k744`	Definition k744 := mk [3;1;2;2;9;4;3;1;2;1;3;1;2;1;13;1;12;1;13;1;9;6;2;3;3;1;2;1;3;1] 1206846 46.	L2188	new
1610	Lemma	`s744`	Lemma s744: run 7428 k743 = inl k744.	L2189	new
1611	Definition	`k745`	Definition k745 := mk [3;1;2;2;9;5;3;1;2;4;3;1;2;1;9;2;8;1;13;1] 1205946 2627.	L2190	new
1612	Lemma	`s745`	Lemma s745: run 7428 k744 = inl k745.	L2191	new
1613	Definition	`k746`	Definition k746 := mk [2;1;13;1;8;1;9;1;12;1;13;1;9;1;13;3] 1210356 2.	L2192	new
1614	Lemma	`s746`	Lemma s746: run 7831 k745 = inl k746.	L2193	new
1615	Definition	`k747`	Definition k747 := mk [3;1;2;2;9;3;3;1;2;4;3;1;2;1;13;1;9;2;13;1] 1211735 503.	L2194	new
1616	Lemma	`s747`	Lemma s747: run 7959 k746 = inl k747.	L2195	new
1617	Definition	`k748`	Definition k748 := mk [3;1;2;2;9;5;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;1;3;2;2;1;3;1] 1205723 8007.	L2196	new
1618	Lemma	`s748`	Lemma s748: run 5597 k747 = inl k748.	L2197	new
1619	Definition	`k749`	Definition k749 := mk [3;1;2;2;9;5;2;1;13;1;12;1;13;1] 1211589 3811.	L2198	new
1620	Lemma	`s749`	Lemma s749: run 5867 k748 = inl k749.	L2199	new
1621	Definition	`k750`	Definition k750 := mk [3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;2;3;1;2;3;12;1;4;1;3;1;2;4;3;1;2;1;13;1] 1217093 4.	L2200	new
1622	Lemma	`s750`	Lemma s750: run 7103 k749 = inl k750.	L2201	new
1623	Lemma	`s751`	Lemma s751: run 7514 k750 = inr tt.	L2202	new
1624	Lemma	`h750`	Lemma h750: halts tm (kden k750).	L2203	new
1625	Lemma	`h749`	Lemma h749: halts tm (kden k749).	L2204	new
1626	Lemma	`h748`	Lemma h748: halts tm (kden k748).	L2205	new
1627	Lemma	`h747`	Lemma h747: halts tm (kden k747).	L2206	new
1628	Lemma	`h746`	Lemma h746: halts tm (kden k746).	L2207	new
1629	Lemma	`h745`	Lemma h745: halts tm (kden k745).	L2208	new
1630	Lemma	`h744`	Lemma h744: halts tm (kden k744).	L2209	new
1631	Lemma	`h743`	Lemma h743: halts tm (kden k743).	L2210	new
1632	Lemma	`h742`	Lemma h742: halts tm (kden k742).	L2211	new
1633	Lemma	`h741`	Lemma h741: halts tm (kden k741).	L2212	new
1634	Lemma	`h740`	Lemma h740: halts tm (kden k740).	L2213	new
1635	Lemma	`h739`	Lemma h739: halts tm (kden k739).	L2214	new
1636	Lemma	`h738`	Lemma h738: halts tm (kden k738).	L2215	new
1637	Lemma	`h737`	Lemma h737: halts tm (kden k737).	L2216	new
1638	Lemma	`h736`	Lemma h736: halts tm (kden k736).	L2217	new
1639	Lemma	`h735`	Lemma h735: halts tm (kden k735).	L2218	new
1640	Lemma	`h734`	Lemma h734: halts tm (kden k734).	L2219	new
1641	Lemma	`h733`	Lemma h733: halts tm (kden k733).	L2220	new
1642	Lemma	`h732`	Lemma h732: halts tm (kden k732).	L2221	new
1643	Lemma	`h731`	Lemma h731: halts tm (kden k731).	L2222	new
1644	Lemma	`h730`	Lemma h730: halts tm (kden k730).	L2223	new
1645	Lemma	`h729`	Lemma h729: halts tm (kden k729).	L2224	new
1646	Lemma	`h728`	Lemma h728: halts tm (kden k728).	L2225	new
1647	Lemma	`h727`	Lemma h727: halts tm (kden k727).	L2226	new
1648	Lemma	`h726`	Lemma h726: halts tm (kden k726).	L2227	new
1649	Lemma	`h725`	Lemma h725: halts tm (kden k725).	L2228	new
1650	Lemma	`h724`	Lemma h724: halts tm (kden k724).	L2229	new
1651	Lemma	`h723`	Lemma h723: halts tm (kden k723).	L2230	new
1652	Lemma	`h722`	Lemma h722: halts tm (kden k722).	L2231	new
1653	Lemma	`h721`	Lemma h721: halts tm (kden k721).	L2232	new
1654	Lemma	`h720`	Lemma h720: halts tm (kden k720).	L2233	new
1655	Lemma	`h719`	Lemma h719: halts tm (kden k719).	L2234	new
1656	Lemma	`h718`	Lemma h718: halts tm (kden k718).	L2235	new
1657	Lemma	`h717`	Lemma h717: halts tm (kden k717).	L2236	new
1658	Lemma	`h716`	Lemma h716: halts tm (kden k716).	L2237	new
1659	Lemma	`h715`	Lemma h715: halts tm (kden k715).	L2238	new
1660	Lemma	`h714`	Lemma h714: halts tm (kden k714).	L2239	new
1661	Lemma	`h713`	Lemma h713: halts tm (kden k713).	L2240	new
1662	Lemma	`h712`	Lemma h712: halts tm (kden k712).	L2241	new
1663	Lemma	`h711`	Lemma h711: halts tm (kden k711).	L2242	new
1664	Lemma	`h710`	Lemma h710: halts tm (kden k710).	L2243	new
1665	Lemma	`h709`	Lemma h709: halts tm (kden k709).	L2244	new
1666	Lemma	`h708`	Lemma h708: halts tm (kden k708).	L2245	new
1667	Lemma	`h707`	Lemma h707: halts tm (kden k707).	L2246	new
1668	Lemma	`h706`	Lemma h706: halts tm (kden k706).	L2247	new
1669	Lemma	`h705`	Lemma h705: halts tm (kden k705).	L2248	new
1670	Lemma	`h704`	Lemma h704: halts tm (kden k704).	L2249	new
1671	Lemma	`h703`	Lemma h703: halts tm (kden k703).	L2250	new
1672	Lemma	`h702`	Lemma h702: halts tm (kden k702).	L2251	new
1673	Lemma	`h701`	Lemma h701: halts tm (kden k701).	L2252	new
1674	Lemma	`h700`	Lemma h700: halts tm (kden k700).	L2253	new
1675	Lemma	`h699`	Lemma h699: halts tm (kden k699).	L2254	new
1676	Lemma	`h698`	Lemma h698: halts tm (kden k698).	L2255	new
1677	Lemma	`h697`	Lemma h697: halts tm (kden k697).	L2256	new
1678	Lemma	`h696`	Lemma h696: halts tm (kden k696).	L2257	new
1679	Lemma	`h695`	Lemma h695: halts tm (kden k695).	L2258	new
1680	Lemma	`h694`	Lemma h694: halts tm (kden k694).	L2259	new
1681	Lemma	`h693`	Lemma h693: halts tm (kden k693).	L2260	new
1682	Lemma	`h692`	Lemma h692: halts tm (kden k692).	L2261	new
1683	Lemma	`h691`	Lemma h691: halts tm (kden k691).	L2262	new
1684	Lemma	`h690`	Lemma h690: halts tm (kden k690).	L2263	new
1685	Lemma	`h689`	Lemma h689: halts tm (kden k689).	L2264	new
1686	Lemma	`h688`	Lemma h688: halts tm (kden k688).	L2265	new
1687	Lemma	`h687`	Lemma h687: halts tm (kden k687).	L2266	new
1688	Lemma	`h686`	Lemma h686: halts tm (kden k686).	L2267	new
1689	Lemma	`h685`	Lemma h685: halts tm (kden k685).	L2268	new
1690	Lemma	`h684`	Lemma h684: halts tm (kden k684).	L2269	new
1691	Lemma	`h683`	Lemma h683: halts tm (kden k683).	L2270	new
1692	Lemma	`h682`	Lemma h682: halts tm (kden k682).	L2271	new
1693	Lemma	`h681`	Lemma h681: halts tm (kden k681).	L2272	new
1694	Lemma	`h680`	Lemma h680: halts tm (kden k680).	L2273	new
1695	Lemma	`h679`	Lemma h679: halts tm (kden k679).	L2274	new
1696	Lemma	`h678`	Lemma h678: halts tm (kden k678).	L2275	new
1697	Lemma	`h677`	Lemma h677: halts tm (kden k677).	L2276	new
1698	Lemma	`h676`	Lemma h676: halts tm (kden k676).	L2277	new
1699	Lemma	`h675`	Lemma h675: halts tm (kden k675).	L2278	new
1700	Lemma	`h674`	Lemma h674: halts tm (kden k674).	L2279	new
1701	Lemma	`h673`	Lemma h673: halts tm (kden k673).	L2280	new
1702	Lemma	`h672`	Lemma h672: halts tm (kden k672).	L2281	new
1703	Lemma	`h671`	Lemma h671: halts tm (kden k671).	L2282	new
1704	Lemma	`h670`	Lemma h670: halts tm (kden k670).	L2283	new
1705	Lemma	`h669`	Lemma h669: halts tm (kden k669).	L2284	new
1706	Lemma	`h668`	Lemma h668: halts tm (kden k668).	L2285	new
1707	Lemma	`h667`	Lemma h667: halts tm (kden k667).	L2286	new
1708	Lemma	`h666`	Lemma h666: halts tm (kden k666).	L2287	new
1709	Lemma	`h665`	Lemma h665: halts tm (kden k665).	L2288	new
1710	Lemma	`h664`	Lemma h664: halts tm (kden k664).	L2289	new
1711	Lemma	`h663`	Lemma h663: halts tm (kden k663).	L2290	new
1712	Lemma	`h662`	Lemma h662: halts tm (kden k662).	L2291	new
1713	Lemma	`h661`	Lemma h661: halts tm (kden k661).	L2292	new
1714	Lemma	`h660`	Lemma h660: halts tm (kden k660).	L2293	new
1715	Lemma	`h659`	Lemma h659: halts tm (kden k659).	L2294	new
1716	Lemma	`h658`	Lemma h658: halts tm (kden k658).	L2295	new
1717	Lemma	`h657`	Lemma h657: halts tm (kden k657).	L2296	new
1718	Lemma	`h656`	Lemma h656: halts tm (kden k656).	L2297	new
1719	Lemma	`h655`	Lemma h655: halts tm (kden k655).	L2298	new
1720	Lemma	`h654`	Lemma h654: halts tm (kden k654).	L2299	new
1721	Lemma	`h653`	Lemma h653: halts tm (kden k653).	L2300	new
1722	Lemma	`h652`	Lemma h652: halts tm (kden k652).	L2301	new
1723	Lemma	`h651`	Lemma h651: halts tm (kden k651).	L2302	new
1724	Lemma	`h650`	Lemma h650: halts tm (kden k650).	L2303	new
1725	Lemma	`h649`	Lemma h649: halts tm (kden k649).	L2304	new
1726	Lemma	`h648`	Lemma h648: halts tm (kden k648).	L2305	new
1727	Lemma	`h647`	Lemma h647: halts tm (kden k647).	L2306	new
1728	Lemma	`h646`	Lemma h646: halts tm (kden k646).	L2307	new
1729	Lemma	`h645`	Lemma h645: halts tm (kden k645).	L2308	new
1730	Lemma	`h644`	Lemma h644: halts tm (kden k644).	L2309	new
1731	Lemma	`h643`	Lemma h643: halts tm (kden k643).	L2310	new
1732	Lemma	`h642`	Lemma h642: halts tm (kden k642).	L2311	new
1733	Lemma	`h641`	Lemma h641: halts tm (kden k641).	L2312	new
1734	Lemma	`h640`	Lemma h640: halts tm (kden k640).	L2313	new
1735	Lemma	`h639`	Lemma h639: halts tm (kden k639).	L2314	new
1736	Lemma	`h638`	Lemma h638: halts tm (kden k638).	L2315	new
1737	Lemma	`h637`	Lemma h637: halts tm (kden k637).	L2316	new
1738	Lemma	`h636`	Lemma h636: halts tm (kden k636).	L2317	new
1739	Lemma	`h635`	Lemma h635: halts tm (kden k635).	L2318	new
1740	Lemma	`h634`	Lemma h634: halts tm (kden k634).	L2319	new
1741	Lemma	`h633`	Lemma h633: halts tm (kden k633).	L2320	new
1742	Lemma	`h632`	Lemma h632: halts tm (kden k632).	L2321	new
1743	Lemma	`h631`	Lemma h631: halts tm (kden k631).	L2322	new
1744	Lemma	`h630`	Lemma h630: halts tm (kden k630).	L2323	new
1745	Lemma	`h629`	Lemma h629: halts tm (kden k629).	L2324	new
1746	Lemma	`h628`	Lemma h628: halts tm (kden k628).	L2325	new
1747	Lemma	`h627`	Lemma h627: halts tm (kden k627).	L2326	new
1748	Lemma	`h626`	Lemma h626: halts tm (kden k626).	L2327	new
1749	Lemma	`h625`	Lemma h625: halts tm (kden k625).	L2328	new
1750	Lemma	`h624`	Lemma h624: halts tm (kden k624).	L2329	new
1751	Lemma	`h623`	Lemma h623: halts tm (kden k623).	L2330	new
1752	Lemma	`h622`	Lemma h622: halts tm (kden k622).	L2331	new
1753	Lemma	`h621`	Lemma h621: halts tm (kden k621).	L2332	new
1754	Lemma	`h620`	Lemma h620: halts tm (kden k620).	L2333	new
1755	Lemma	`h619`	Lemma h619: halts tm (kden k619).	L2334	new
1756	Lemma	`h618`	Lemma h618: halts tm (kden k618).	L2335	new
1757	Lemma	`h617`	Lemma h617: halts tm (kden k617).	L2336	new
1758	Lemma	`h616`	Lemma h616: halts tm (kden k616).	L2337	new
1759	Lemma	`h615`	Lemma h615: halts tm (kden k615).	L2338	new
1760	Lemma	`h614`	Lemma h614: halts tm (kden k614).	L2339	new
1761	Lemma	`h613`	Lemma h613: halts tm (kden k613).	L2340	new
1762	Lemma	`h612`	Lemma h612: halts tm (kden k612).	L2341	new
1763	Lemma	`h611`	Lemma h611: halts tm (kden k611).	L2342	new
1764	Lemma	`h610`	Lemma h610: halts tm (kden k610).	L2343	new
1765	Lemma	`h609`	Lemma h609: halts tm (kden k609).	L2344	new
1766	Lemma	`h608`	Lemma h608: halts tm (kden k608).	L2345	new
1767	Lemma	`h607`	Lemma h607: halts tm (kden k607).	L2346	new
1768	Lemma	`h606`	Lemma h606: halts tm (kden k606).	L2347	new
1769	Lemma	`h605`	Lemma h605: halts tm (kden k605).	L2348	new
1770	Lemma	`h604`	Lemma h604: halts tm (kden k604).	L2349	new
1771	Lemma	`h603`	Lemma h603: halts tm (kden k603).	L2350	new
1772	Lemma	`h602`	Lemma h602: halts tm (kden k602).	L2351	new
1773	Lemma	`h601`	Lemma h601: halts tm (kden k601).	L2352	new
1774	Lemma	`h600`	Lemma h600: halts tm (kden k600).	L2353	new
1775	Lemma	`h599`	Lemma h599: halts tm (kden k599).	L2354	new
1776	Lemma	`h598`	Lemma h598: halts tm (kden k598).	L2355	new
1777	Lemma	`h597`	Lemma h597: halts tm (kden k597).	L2356	new
1778	Lemma	`h596`	Lemma h596: halts tm (kden k596).	L2357	new
1779	Lemma	`h595`	Lemma h595: halts tm (kden k595).	L2358	new
1780	Lemma	`h594`	Lemma h594: halts tm (kden k594).	L2359	new
1781	Lemma	`h593`	Lemma h593: halts tm (kden k593).	L2360	new
1782	Lemma	`h592`	Lemma h592: halts tm (kden k592).	L2361	new
1783	Lemma	`h591`	Lemma h591: halts tm (kden k591).	L2362	new
1784	Lemma	`h590`	Lemma h590: halts tm (kden k590).	L2363	new
1785	Lemma	`h589`	Lemma h589: halts tm (kden k589).	L2364	new
1786	Lemma	`h588`	Lemma h588: halts tm (kden k588).	L2365	new
1787	Lemma	`h587`	Lemma h587: halts tm (kden k587).	L2366	new
1788	Lemma	`h586`	Lemma h586: halts tm (kden k586).	L2367	new
1789	Lemma	`h585`	Lemma h585: halts tm (kden k585).	L2368	new
1790	Lemma	`h584`	Lemma h584: halts tm (kden k584).	L2369	new
1791	Lemma	`h583`	Lemma h583: halts tm (kden k583).	L2370	new
1792	Lemma	`h582`	Lemma h582: halts tm (kden k582).	L2371	new
1793	Lemma	`h581`	Lemma h581: halts tm (kden k581).	L2372	new
1794	Lemma	`h580`	Lemma h580: halts tm (kden k580).	L2373	new
1795	Lemma	`h579`	Lemma h579: halts tm (kden k579).	L2374	new
1796	Lemma	`h578`	Lemma h578: halts tm (kden k578).	L2375	new
1797	Lemma	`h577`	Lemma h577: halts tm (kden k577).	L2376	new
1798	Lemma	`h576`	Lemma h576: halts tm (kden k576).	L2377	new
1799	Lemma	`h575`	Lemma h575: halts tm (kden k575).	L2378	new
1800	Lemma	`h574`	Lemma h574: halts tm (kden k574).	L2379	new
1801	Lemma	`h573`	Lemma h573: halts tm (kden k573).	L2380	new
1802	Lemma	`h572`	Lemma h572: halts tm (kden k572).	L2381	new
1803	Lemma	`h571`	Lemma h571: halts tm (kden k571).	L2382	new
1804	Lemma	`h570`	Lemma h570: halts tm (kden k570).	L2383	new
1805	Lemma	`h569`	Lemma h569: halts tm (kden k569).	L2384	new
1806	Lemma	`h568`	Lemma h568: halts tm (kden k568).	L2385	new
1807	Lemma	`h567`	Lemma h567: halts tm (kden k567).	L2386	new
1808	Lemma	`h566`	Lemma h566: halts tm (kden k566).	L2387	new
1809	Lemma	`h565`	Lemma h565: halts tm (kden k565).	L2388	new
1810	Lemma	`h564`	Lemma h564: halts tm (kden k564).	L2389	new
1811	Lemma	`h563`	Lemma h563: halts tm (kden k563).	L2390	new
1812	Lemma	`h562`	Lemma h562: halts tm (kden k562).	L2391	new
1813	Lemma	`h561`	Lemma h561: halts tm (kden k561).	L2392	new
1814	Lemma	`h560`	Lemma h560: halts tm (kden k560).	L2393	new
1815	Lemma	`h559`	Lemma h559: halts tm (kden k559).	L2394	new
1816	Lemma	`h558`	Lemma h558: halts tm (kden k558).	L2395	new
1817	Lemma	`h557`	Lemma h557: halts tm (kden k557).	L2396	new
1818	Lemma	`h556`	Lemma h556: halts tm (kden k556).	L2397	new
1819	Lemma	`h555`	Lemma h555: halts tm (kden k555).	L2398	new
1820	Lemma	`h554`	Lemma h554: halts tm (kden k554).	L2399	new
1821	Lemma	`h553`	Lemma h553: halts tm (kden k553).	L2400	new
1822	Lemma	`h552`	Lemma h552: halts tm (kden k552).	L2401	new
1823	Lemma	`h551`	Lemma h551: halts tm (kden k551).	L2402	new
1824	Lemma	`h550`	Lemma h550: halts tm (kden k550).	L2403	new
1825	Lemma	`h549`	Lemma h549: halts tm (kden k549).	L2404	new
1826	Lemma	`h548`	Lemma h548: halts tm (kden k548).	L2405	new
1827	Lemma	`h547`	Lemma h547: halts tm (kden k547).	L2406	new
1828	Lemma	`h546`	Lemma h546: halts tm (kden k546).	L2407	new
1829	Lemma	`h545`	Lemma h545: halts tm (kden k545).	L2408	new
1830	Lemma	`h544`	Lemma h544: halts tm (kden k544).	L2409	new
1831	Lemma	`h543`	Lemma h543: halts tm (kden k543).	L2410	new
1832	Lemma	`h542`	Lemma h542: halts tm (kden k542).	L2411	new
1833	Lemma	`h541`	Lemma h541: halts tm (kden k541).	L2412	new
1834	Lemma	`h540`	Lemma h540: halts tm (kden k540).	L2413	new
1835	Lemma	`h539`	Lemma h539: halts tm (kden k539).	L2414	new
1836	Lemma	`h538`	Lemma h538: halts tm (kden k538).	L2415	new
1837	Lemma	`h537`	Lemma h537: halts tm (kden k537).	L2416	new
1838	Lemma	`h536`	Lemma h536: halts tm (kden k536).	L2417	new
1839	Lemma	`h535`	Lemma h535: halts tm (kden k535).	L2418	new
1840	Lemma	`h534`	Lemma h534: halts tm (kden k534).	L2419	new
1841	Lemma	`h533`	Lemma h533: halts tm (kden k533).	L2420	new
1842	Lemma	`h532`	Lemma h532: halts tm (kden k532).	L2421	new
1843	Lemma	`h531`	Lemma h531: halts tm (kden k531).	L2422	new
1844	Lemma	`h530`	Lemma h530: halts tm (kden k530).	L2423	new
1845	Lemma	`h529`	Lemma h529: halts tm (kden k529).	L2424	new
1846	Lemma	`h528`	Lemma h528: halts tm (kden k528).	L2425	new
1847	Lemma	`h527`	Lemma h527: halts tm (kden k527).	L2426	new
1848	Lemma	`h526`	Lemma h526: halts tm (kden k526).	L2427	new
1849	Lemma	`h525`	Lemma h525: halts tm (kden k525).	L2428	new
1850	Lemma	`h524`	Lemma h524: halts tm (kden k524).	L2429	new
1851	Lemma	`h523`	Lemma h523: halts tm (kden k523).	L2430	new
1852	Lemma	`h522`	Lemma h522: halts tm (kden k522).	L2431	new
1853	Lemma	`h521`	Lemma h521: halts tm (kden k521).	L2432	new
1854	Lemma	`h520`	Lemma h520: halts tm (kden k520).	L2433	new
1855	Lemma	`h519`	Lemma h519: halts tm (kden k519).	L2434	new
1856	Lemma	`h518`	Lemma h518: halts tm (kden k518).	L2435	new
1857	Lemma	`h517`	Lemma h517: halts tm (kden k517).	L2436	new
1858	Lemma	`h516`	Lemma h516: halts tm (kden k516).	L2437	new
1859	Lemma	`h515`	Lemma h515: halts tm (kden k515).	L2438	new
1860	Lemma	`h514`	Lemma h514: halts tm (kden k514).	L2439	new
1861	Lemma	`h513`	Lemma h513: halts tm (kden k513).	L2440	new
1862	Lemma	`h512`	Lemma h512: halts tm (kden k512).	L2441	new
1863	Lemma	`h511`	Lemma h511: halts tm (kden k511).	L2442	new
1864	Lemma	`h510`	Lemma h510: halts tm (kden k510).	L2443	new
1865	Lemma	`h509`	Lemma h509: halts tm (kden k509).	L2444	new
1866	Lemma	`h508`	Lemma h508: halts tm (kden k508).	L2445	new
1867	Lemma	`h507`	Lemma h507: halts tm (kden k507).	L2446	new
1868	Lemma	`h506`	Lemma h506: halts tm (kden k506).	L2447	new
1869	Lemma	`h505`	Lemma h505: halts tm (kden k505).	L2448	new
1870	Lemma	`h504`	Lemma h504: halts tm (kden k504).	L2449	new
1871	Lemma	`h503`	Lemma h503: halts tm (kden k503).	L2450	new
1872	Lemma	`h502`	Lemma h502: halts tm (kden k502).	L2451	new
1873	Lemma	`h501`	Lemma h501: halts tm (kden k501).	L2452	new
1874	Lemma	`h500`	Lemma h500: halts tm (kden k500).	L2453	new
1875	Lemma	`h499`	Lemma h499: halts tm (kden k499).	L2454	new
1876	Lemma	`h498`	Lemma h498: halts tm (kden k498).	L2455	new
1877	Lemma	`h497`	Lemma h497: halts tm (kden k497).	L2456	new
1878	Lemma	`h496`	Lemma h496: halts tm (kden k496).	L2457	new
1879	Lemma	`h495`	Lemma h495: halts tm (kden k495).	L2458	new
1880	Lemma	`h494`	Lemma h494: halts tm (kden k494).	L2459	new
1881	Lemma	`h493`	Lemma h493: halts tm (kden k493).	L2460	new
1882	Lemma	`h492`	Lemma h492: halts tm (kden k492).	L2461	new
1883	Lemma	`h491`	Lemma h491: halts tm (kden k491).	L2462	new
1884	Lemma	`h490`	Lemma h490: halts tm (kden k490).	L2463	new
1885	Lemma	`h489`	Lemma h489: halts tm (kden k489).	L2464	new
1886	Lemma	`h488`	Lemma h488: halts tm (kden k488).	L2465	new
1887	Lemma	`h487`	Lemma h487: halts tm (kden k487).	L2466	new
1888	Lemma	`h486`	Lemma h486: halts tm (kden k486).	L2467	new
1889	Lemma	`h485`	Lemma h485: halts tm (kden k485).	L2468	new
1890	Lemma	`h484`	Lemma h484: halts tm (kden k484).	L2469	new
1891	Lemma	`h483`	Lemma h483: halts tm (kden k483).	L2470	new
1892	Lemma	`h482`	Lemma h482: halts tm (kden k482).	L2471	new
1893	Lemma	`h481`	Lemma h481: halts tm (kden k481).	L2472	new
1894	Lemma	`h480`	Lemma h480: halts tm (kden k480).	L2473	new
1895	Lemma	`h479`	Lemma h479: halts tm (kden k479).	L2474	new
1896	Lemma	`h478`	Lemma h478: halts tm (kden k478).	L2475	new
1897	Lemma	`h477`	Lemma h477: halts tm (kden k477).	L2476	new
1898	Lemma	`h476`	Lemma h476: halts tm (kden k476).	L2477	new
1899	Lemma	`h475`	Lemma h475: halts tm (kden k475).	L2478	new
1900	Lemma	`h474`	Lemma h474: halts tm (kden k474).	L2479	new
1901	Lemma	`h473`	Lemma h473: halts tm (kden k473).	L2480	new
1902	Lemma	`h472`	Lemma h472: halts tm (kden k472).	L2481	new
1903	Lemma	`h471`	Lemma h471: halts tm (kden k471).	L2482	new
1904	Lemma	`h470`	Lemma h470: halts tm (kden k470).	L2483	new
1905	Lemma	`h469`	Lemma h469: halts tm (kden k469).	L2484	new
1906	Lemma	`h468`	Lemma h468: halts tm (kden k468).	L2485	new
1907	Lemma	`h467`	Lemma h467: halts tm (kden k467).	L2486	new
1908	Lemma	`h466`	Lemma h466: halts tm (kden k466).	L2487	new
1909	Lemma	`h465`	Lemma h465: halts tm (kden k465).	L2488	new
1910	Lemma	`h464`	Lemma h464: halts tm (kden k464).	L2489	new
1911	Lemma	`h463`	Lemma h463: halts tm (kden k463).	L2490	new
1912	Lemma	`h462`	Lemma h462: halts tm (kden k462).	L2491	new
1913	Lemma	`h461`	Lemma h461: halts tm (kden k461).	L2492	new
1914	Lemma	`h460`	Lemma h460: halts tm (kden k460).	L2493	new
1915	Lemma	`h459`	Lemma h459: halts tm (kden k459).	L2494	new
1916	Lemma	`h458`	Lemma h458: halts tm (kden k458).	L2495	new
1917	Lemma	`h457`	Lemma h457: halts tm (kden k457).	L2496	new
1918	Lemma	`h456`	Lemma h456: halts tm (kden k456).	L2497	new
1919	Lemma	`h455`	Lemma h455: halts tm (kden k455).	L2498	new
1920	Lemma	`h454`	Lemma h454: halts tm (kden k454).	L2499	new
1921	Lemma	`h453`	Lemma h453: halts tm (kden k453).	L2500	new
1922	Lemma	`h452`	Lemma h452: halts tm (kden k452).	L2501	new
1923	Lemma	`h451`	Lemma h451: halts tm (kden k451).	L2502	new
1924	Lemma	`h450`	Lemma h450: halts tm (kden k450).	L2503	new
1925	Lemma	`h449`	Lemma h449: halts tm (kden k449).	L2504	new
1926	Lemma	`h448`	Lemma h448: halts tm (kden k448).	L2505	new
1927	Lemma	`h447`	Lemma h447: halts tm (kden k447).	L2506	new
1928	Lemma	`h446`	Lemma h446: halts tm (kden k446).	L2507	new
1929	Lemma	`h445`	Lemma h445: halts tm (kden k445).	L2508	new
1930	Lemma	`h444`	Lemma h444: halts tm (kden k444).	L2509	new
1931	Lemma	`h443`	Lemma h443: halts tm (kden k443).	L2510	new
1932	Lemma	`h442`	Lemma h442: halts tm (kden k442).	L2511	new
1933	Lemma	`h441`	Lemma h441: halts tm (kden k441).	L2512	new
1934	Lemma	`h440`	Lemma h440: halts tm (kden k440).	L2513	new
1935	Lemma	`h439`	Lemma h439: halts tm (kden k439).	L2514	new
1936	Lemma	`h438`	Lemma h438: halts tm (kden k438).	L2515	new
1937	Lemma	`h437`	Lemma h437: halts tm (kden k437).	L2516	new
1938	Lemma	`h436`	Lemma h436: halts tm (kden k436).	L2517	new
1939	Lemma	`h435`	Lemma h435: halts tm (kden k435).	L2518	new
1940	Lemma	`h434`	Lemma h434: halts tm (kden k434).	L2519	new
1941	Lemma	`h433`	Lemma h433: halts tm (kden k433).	L2520	new
1942	Lemma	`h432`	Lemma h432: halts tm (kden k432).	L2521	new
1943	Lemma	`h431`	Lemma h431: halts tm (kden k431).	L2522	new
1944	Lemma	`h430`	Lemma h430: halts tm (kden k430).	L2523	new
1945	Lemma	`h429`	Lemma h429: halts tm (kden k429).	L2524	new
1946	Lemma	`h428`	Lemma h428: halts tm (kden k428).	L2525	new
1947	Lemma	`h427`	Lemma h427: halts tm (kden k427).	L2526	new
1948	Lemma	`h426`	Lemma h426: halts tm (kden k426).	L2527	new
1949	Lemma	`h425`	Lemma h425: halts tm (kden k425).	L2528	new
1950	Lemma	`h424`	Lemma h424: halts tm (kden k424).	L2529	new
1951	Lemma	`h423`	Lemma h423: halts tm (kden k423).	L2530	new
1952	Lemma	`h422`	Lemma h422: halts tm (kden k422).	L2531	new
1953	Lemma	`h421`	Lemma h421: halts tm (kden k421).	L2532	new
1954	Lemma	`h420`	Lemma h420: halts tm (kden k420).	L2533	new
1955	Lemma	`h419`	Lemma h419: halts tm (kden k419).	L2534	new
1956	Lemma	`h418`	Lemma h418: halts tm (kden k418).	L2535	new
1957	Lemma	`h417`	Lemma h417: halts tm (kden k417).	L2536	new
1958	Lemma	`h416`	Lemma h416: halts tm (kden k416).	L2537	new
1959	Lemma	`h415`	Lemma h415: halts tm (kden k415).	L2538	new
1960	Lemma	`h414`	Lemma h414: halts tm (kden k414).	L2539	new
1961	Lemma	`h413`	Lemma h413: halts tm (kden k413).	L2540	new
1962	Lemma	`h412`	Lemma h412: halts tm (kden k412).	L2541	new
1963	Lemma	`h411`	Lemma h411: halts tm (kden k411).	L2542	new
1964	Lemma	`h410`	Lemma h410: halts tm (kden k410).	L2543	new
1965	Lemma	`h409`	Lemma h409: halts tm (kden k409).	L2544	new
1966	Lemma	`h408`	Lemma h408: halts tm (kden k408).	L2545	new
1967	Lemma	`h407`	Lemma h407: halts tm (kden k407).	L2546	new
1968	Lemma	`h406`	Lemma h406: halts tm (kden k406).	L2547	new
1969	Lemma	`h405`	Lemma h405: halts tm (kden k405).	L2548	new
1970	Lemma	`h404`	Lemma h404: halts tm (kden k404).	L2549	new
1971	Lemma	`h403`	Lemma h403: halts tm (kden k403).	L2550	new
1972	Lemma	`h402`	Lemma h402: halts tm (kden k402).	L2551	new
1973	Lemma	`h401`	Lemma h401: halts tm (kden k401).	L2552	new
1974	Lemma	`h400`	Lemma h400: halts tm (kden k400).	L2553	new
1975	Lemma	`h399`	Lemma h399: halts tm (kden k399).	L2554	new
1976	Lemma	`h398`	Lemma h398: halts tm (kden k398).	L2555	new
1977	Lemma	`h397`	Lemma h397: halts tm (kden k397).	L2556	new
1978	Lemma	`h396`	Lemma h396: halts tm (kden k396).	L2557	new
1979	Lemma	`h395`	Lemma h395: halts tm (kden k395).	L2558	new
1980	Lemma	`h394`	Lemma h394: halts tm (kden k394).	L2559	new
1981	Lemma	`h393`	Lemma h393: halts tm (kden k393).	L2560	new
1982	Lemma	`h392`	Lemma h392: halts tm (kden k392).	L2561	new
1983	Lemma	`h391`	Lemma h391: halts tm (kden k391).	L2562	new
1984	Lemma	`h390`	Lemma h390: halts tm (kden k390).	L2563	new
1985	Lemma	`h389`	Lemma h389: halts tm (kden k389).	L2564	new
1986	Lemma	`h388`	Lemma h388: halts tm (kden k388).	L2565	new
1987	Lemma	`h387`	Lemma h387: halts tm (kden k387).	L2566	new
1988	Lemma	`h386`	Lemma h386: halts tm (kden k386).	L2567	new
1989	Lemma	`h385`	Lemma h385: halts tm (kden k385).	L2568	new
1990	Lemma	`h384`	Lemma h384: halts tm (kden k384).	L2569	new
1991	Lemma	`h383`	Lemma h383: halts tm (kden k383).	L2570	new
1992	Lemma	`h382`	Lemma h382: halts tm (kden k382).	L2571	new
1993	Lemma	`h381`	Lemma h381: halts tm (kden k381).	L2572	new
1994	Lemma	`h380`	Lemma h380: halts tm (kden k380).	L2573	new
1995	Lemma	`h379`	Lemma h379: halts tm (kden k379).	L2574	new
1996	Lemma	`h378`	Lemma h378: halts tm (kden k378).	L2575	new
1997	Lemma	`h377`	Lemma h377: halts tm (kden k377).	L2576	new
1998	Lemma	`h376`	Lemma h376: halts tm (kden k376).	L2577	new
1999	Lemma	`h375`	Lemma h375: halts tm (kden k375).	L2578	new
2000	Lemma	`h374`	Lemma h374: halts tm (kden k374).	L2579	new
2001	Lemma	`h373`	Lemma h373: halts tm (kden k373).	L2580	new
2002	Lemma	`h372`	Lemma h372: halts tm (kden k372).	L2581	new
2003	Lemma	`h371`	Lemma h371: halts tm (kden k371).	L2582	new
2004	Lemma	`h370`	Lemma h370: halts tm (kden k370).	L2583	new
2005	Lemma	`h369`	Lemma h369: halts tm (kden k369).	L2584	new
2006	Lemma	`h368`	Lemma h368: halts tm (kden k368).	L2585	new
2007	Lemma	`h367`	Lemma h367: halts tm (kden k367).	L2586	new
2008	Lemma	`h366`	Lemma h366: halts tm (kden k366).	L2587	new
2009	Lemma	`h365`	Lemma h365: halts tm (kden k365).	L2588	new
2010	Lemma	`h364`	Lemma h364: halts tm (kden k364).	L2589	new
2011	Lemma	`h363`	Lemma h363: halts tm (kden k363).	L2590	new
2012	Lemma	`h362`	Lemma h362: halts tm (kden k362).	L2591	new
2013	Lemma	`h361`	Lemma h361: halts tm (kden k361).	L2592	new
2014	Lemma	`h360`	Lemma h360: halts tm (kden k360).	L2593	new
2015	Lemma	`h359`	Lemma h359: halts tm (kden k359).	L2594	new
2016	Lemma	`h358`	Lemma h358: halts tm (kden k358).	L2595	new
2017	Lemma	`h357`	Lemma h357: halts tm (kden k357).	L2596	new
2018	Lemma	`h356`	Lemma h356: halts tm (kden k356).	L2597	new
2019	Lemma	`h355`	Lemma h355: halts tm (kden k355).	L2598	new
2020	Lemma	`h354`	Lemma h354: halts tm (kden k354).	L2599	new
2021	Lemma	`h353`	Lemma h353: halts tm (kden k353).	L2600	new
2022	Lemma	`h352`	Lemma h352: halts tm (kden k352).	L2601	new
2023	Lemma	`h351`	Lemma h351: halts tm (kden k351).	L2602	new
2024	Lemma	`h350`	Lemma h350: halts tm (kden k350).	L2603	new
2025	Lemma	`h349`	Lemma h349: halts tm (kden k349).	L2604	new
2026	Lemma	`h348`	Lemma h348: halts tm (kden k348).	L2605	new
2027	Lemma	`h347`	Lemma h347: halts tm (kden k347).	L2606	new
2028	Lemma	`h346`	Lemma h346: halts tm (kden k346).	L2607	new
2029	Lemma	`h345`	Lemma h345: halts tm (kden k345).	L2608	new
2030	Lemma	`h344`	Lemma h344: halts tm (kden k344).	L2609	new
2031	Lemma	`h343`	Lemma h343: halts tm (kden k343).	L2610	new
2032	Lemma	`h342`	Lemma h342: halts tm (kden k342).	L2611	new
2033	Lemma	`h341`	Lemma h341: halts tm (kden k341).	L2612	new
2034	Lemma	`h340`	Lemma h340: halts tm (kden k340).	L2613	new
2035	Lemma	`h339`	Lemma h339: halts tm (kden k339).	L2614	new
2036	Lemma	`h338`	Lemma h338: halts tm (kden k338).	L2615	new
2037	Lemma	`h337`	Lemma h337: halts tm (kden k337).	L2616	new
2038	Lemma	`h336`	Lemma h336: halts tm (kden k336).	L2617	new
2039	Lemma	`h335`	Lemma h335: halts tm (kden k335).	L2618	new
2040	Lemma	`h334`	Lemma h334: halts tm (kden k334).	L2619	new
2041	Lemma	`h333`	Lemma h333: halts tm (kden k333).	L2620	new
2042	Lemma	`h332`	Lemma h332: halts tm (kden k332).	L2621	new
2043	Lemma	`h331`	Lemma h331: halts tm (kden k331).	L2622	new
2044	Lemma	`h330`	Lemma h330: halts tm (kden k330).	L2623	new
2045	Lemma	`h329`	Lemma h329: halts tm (kden k329).	L2624	new
2046	Lemma	`h328`	Lemma h328: halts tm (kden k328).	L2625	new
2047	Lemma	`h327`	Lemma h327: halts tm (kden k327).	L2626	new
2048	Lemma	`h326`	Lemma h326: halts tm (kden k326).	L2627	new
2049	Lemma	`h325`	Lemma h325: halts tm (kden k325).	L2628	new
2050	Lemma	`h324`	Lemma h324: halts tm (kden k324).	L2629	new
2051	Lemma	`h323`	Lemma h323: halts tm (kden k323).	L2630	new
2052	Lemma	`h322`	Lemma h322: halts tm (kden k322).	L2631	new
2053	Lemma	`h321`	Lemma h321: halts tm (kden k321).	L2632	new
2054	Lemma	`h320`	Lemma h320: halts tm (kden k320).	L2633	new
2055	Lemma	`h319`	Lemma h319: halts tm (kden k319).	L2634	new
2056	Lemma	`h318`	Lemma h318: halts tm (kden k318).	L2635	new
2057	Lemma	`h317`	Lemma h317: halts tm (kden k317).	L2636	new
2058	Lemma	`h316`	Lemma h316: halts tm (kden k316).	L2637	new
2059	Lemma	`h315`	Lemma h315: halts tm (kden k315).	L2638	new
2060	Lemma	`h314`	Lemma h314: halts tm (kden k314).	L2639	new
2061	Lemma	`h313`	Lemma h313: halts tm (kden k313).	L2640	new
2062	Lemma	`h312`	Lemma h312: halts tm (kden k312).	L2641	new
2063	Lemma	`h311`	Lemma h311: halts tm (kden k311).	L2642	new
2064	Lemma	`h310`	Lemma h310: halts tm (kden k310).	L2643	new
2065	Lemma	`h309`	Lemma h309: halts tm (kden k309).	L2644	new
2066	Lemma	`h308`	Lemma h308: halts tm (kden k308).	L2645	new
2067	Lemma	`h307`	Lemma h307: halts tm (kden k307).	L2646	new
2068	Lemma	`h306`	Lemma h306: halts tm (kden k306).	L2647	new
2069	Lemma	`h305`	Lemma h305: halts tm (kden k305).	L2648	new
2070	Lemma	`h304`	Lemma h304: halts tm (kden k304).	L2649	new
2071	Lemma	`h303`	Lemma h303: halts tm (kden k303).	L2650	new
2072	Lemma	`h302`	Lemma h302: halts tm (kden k302).	L2651	new
2073	Lemma	`h301`	Lemma h301: halts tm (kden k301).	L2652	new
2074	Lemma	`h300`	Lemma h300: halts tm (kden k300).	L2653	new
2075	Lemma	`h299`	Lemma h299: halts tm (kden k299).	L2654	new
2076	Lemma	`h298`	Lemma h298: halts tm (kden k298).	L2655	new
2077	Lemma	`h297`	Lemma h297: halts tm (kden k297).	L2656	new
2078	Lemma	`h296`	Lemma h296: halts tm (kden k296).	L2657	new
2079	Lemma	`h295`	Lemma h295: halts tm (kden k295).	L2658	new
2080	Lemma	`h294`	Lemma h294: halts tm (kden k294).	L2659	new
2081	Lemma	`h293`	Lemma h293: halts tm (kden k293).	L2660	new
2082	Lemma	`h292`	Lemma h292: halts tm (kden k292).	L2661	new
2083	Lemma	`h291`	Lemma h291: halts tm (kden k291).	L2662	new
2084	Lemma	`h290`	Lemma h290: halts tm (kden k290).	L2663	new
2085	Lemma	`h289`	Lemma h289: halts tm (kden k289).	L2664	new
2086	Lemma	`h288`	Lemma h288: halts tm (kden k288).	L2665	new
2087	Lemma	`h287`	Lemma h287: halts tm (kden k287).	L2666	new
2088	Lemma	`h286`	Lemma h286: halts tm (kden k286).	L2667	new
2089	Lemma	`h285`	Lemma h285: halts tm (kden k285).	L2668	new
2090	Lemma	`h284`	Lemma h284: halts tm (kden k284).	L2669	new
2091	Lemma	`h283`	Lemma h283: halts tm (kden k283).	L2670	new
2092	Lemma	`h282`	Lemma h282: halts tm (kden k282).	L2671	new
2093	Lemma	`h281`	Lemma h281: halts tm (kden k281).	L2672	new
2094	Lemma	`h280`	Lemma h280: halts tm (kden k280).	L2673	new
2095	Lemma	`h279`	Lemma h279: halts tm (kden k279).	L2674	new
2096	Lemma	`h278`	Lemma h278: halts tm (kden k278).	L2675	new
2097	Lemma	`h277`	Lemma h277: halts tm (kden k277).	L2676	new
2098	Lemma	`h276`	Lemma h276: halts tm (kden k276).	L2677	new
2099	Lemma	`h275`	Lemma h275: halts tm (kden k275).	L2678	new
2100	Lemma	`h274`	Lemma h274: halts tm (kden k274).	L2679	new
2101	Lemma	`h273`	Lemma h273: halts tm (kden k273).	L2680	new
2102	Lemma	`h272`	Lemma h272: halts tm (kden k272).	L2681	new
2103	Lemma	`h271`	Lemma h271: halts tm (kden k271).	L2682	new
2104	Lemma	`h270`	Lemma h270: halts tm (kden k270).	L2683	new
2105	Lemma	`h269`	Lemma h269: halts tm (kden k269).	L2684	new
2106	Lemma	`h268`	Lemma h268: halts tm (kden k268).	L2685	new
2107	Lemma	`h267`	Lemma h267: halts tm (kden k267).	L2686	new
2108	Lemma	`h266`	Lemma h266: halts tm (kden k266).	L2687	new
2109	Lemma	`h265`	Lemma h265: halts tm (kden k265).	L2688	new
2110	Lemma	`h264`	Lemma h264: halts tm (kden k264).	L2689	new
2111	Lemma	`h263`	Lemma h263: halts tm (kden k263).	L2690	new
2112	Lemma	`h262`	Lemma h262: halts tm (kden k262).	L2691	new
2113	Lemma	`h261`	Lemma h261: halts tm (kden k261).	L2692	new
2114	Lemma	`h260`	Lemma h260: halts tm (kden k260).	L2693	new
2115	Lemma	`h259`	Lemma h259: halts tm (kden k259).	L2694	new
2116	Lemma	`h258`	Lemma h258: halts tm (kden k258).	L2695	new
2117	Lemma	`h257`	Lemma h257: halts tm (kden k257).	L2696	new
2118	Lemma	`h256`	Lemma h256: halts tm (kden k256).	L2697	new
2119	Lemma	`h255`	Lemma h255: halts tm (kden k255).	L2698	new
2120	Lemma	`h254`	Lemma h254: halts tm (kden k254).	L2699	new
2121	Lemma	`h253`	Lemma h253: halts tm (kden k253).	L2700	new
2122	Lemma	`h252`	Lemma h252: halts tm (kden k252).	L2701	new
2123	Lemma	`h251`	Lemma h251: halts tm (kden k251).	L2702	new
2124	Lemma	`h250`	Lemma h250: halts tm (kden k250).	L2703	new
2125	Lemma	`h249`	Lemma h249: halts tm (kden k249).	L2704	new
2126	Lemma	`h248`	Lemma h248: halts tm (kden k248).	L2705	new
2127	Lemma	`h247`	Lemma h247: halts tm (kden k247).	L2706	new
2128	Lemma	`h246`	Lemma h246: halts tm (kden k246).	L2707	new
2129	Lemma	`h245`	Lemma h245: halts tm (kden k245).	L2708	new
2130	Lemma	`h244`	Lemma h244: halts tm (kden k244).	L2709	new
2131	Lemma	`h243`	Lemma h243: halts tm (kden k243).	L2710	new
2132	Lemma	`h242`	Lemma h242: halts tm (kden k242).	L2711	new
2133	Lemma	`h241`	Lemma h241: halts tm (kden k241).	L2712	new
2134	Lemma	`h240`	Lemma h240: halts tm (kden k240).	L2713	new
2135	Lemma	`h239`	Lemma h239: halts tm (kden k239).	L2714	new
2136	Lemma	`h238`	Lemma h238: halts tm (kden k238).	L2715	new
2137	Lemma	`h237`	Lemma h237: halts tm (kden k237).	L2716	new
2138	Lemma	`h236`	Lemma h236: halts tm (kden k236).	L2717	new
2139	Lemma	`h235`	Lemma h235: halts tm (kden k235).	L2718	new
2140	Lemma	`h234`	Lemma h234: halts tm (kden k234).	L2719	new
2141	Lemma	`h233`	Lemma h233: halts tm (kden k233).	L2720	new
2142	Lemma	`h232`	Lemma h232: halts tm (kden k232).	L2721	new
2143	Lemma	`h231`	Lemma h231: halts tm (kden k231).	L2722	new
2144	Lemma	`h230`	Lemma h230: halts tm (kden k230).	L2723	new
2145	Lemma	`h229`	Lemma h229: halts tm (kden k229).	L2724	new
2146	Lemma	`h228`	Lemma h228: halts tm (kden k228).	L2725	new
2147	Lemma	`h227`	Lemma h227: halts tm (kden k227).	L2726	new
2148	Lemma	`h226`	Lemma h226: halts tm (kden k226).	L2727	new
2149	Lemma	`h225`	Lemma h225: halts tm (kden k225).	L2728	new
2150	Lemma	`h224`	Lemma h224: halts tm (kden k224).	L2729	new
2151	Lemma	`h223`	Lemma h223: halts tm (kden k223).	L2730	new
2152	Lemma	`h222`	Lemma h222: halts tm (kden k222).	L2731	new
2153	Lemma	`h221`	Lemma h221: halts tm (kden k221).	L2732	new
2154	Lemma	`h220`	Lemma h220: halts tm (kden k220).	L2733	new
2155	Lemma	`h219`	Lemma h219: halts tm (kden k219).	L2734	new
2156	Lemma	`h218`	Lemma h218: halts tm (kden k218).	L2735	new
2157	Lemma	`h217`	Lemma h217: halts tm (kden k217).	L2736	new
2158	Lemma	`h216`	Lemma h216: halts tm (kden k216).	L2737	new
2159	Lemma	`h215`	Lemma h215: halts tm (kden k215).	L2738	new
2160	Lemma	`h214`	Lemma h214: halts tm (kden k214).	L2739	new
2161	Lemma	`h213`	Lemma h213: halts tm (kden k213).	L2740	new
2162	Lemma	`h212`	Lemma h212: halts tm (kden k212).	L2741	new
2163	Lemma	`h211`	Lemma h211: halts tm (kden k211).	L2742	new
2164	Lemma	`h210`	Lemma h210: halts tm (kden k210).	L2743	new
2165	Lemma	`h209`	Lemma h209: halts tm (kden k209).	L2744	new
2166	Lemma	`h208`	Lemma h208: halts tm (kden k208).	L2745	new
2167	Lemma	`h207`	Lemma h207: halts tm (kden k207).	L2746	new
2168	Lemma	`h206`	Lemma h206: halts tm (kden k206).	L2747	new
2169	Lemma	`h205`	Lemma h205: halts tm (kden k205).	L2748	new
2170	Lemma	`h204`	Lemma h204: halts tm (kden k204).	L2749	new
2171	Lemma	`h203`	Lemma h203: halts tm (kden k203).	L2750	new
2172	Lemma	`h202`	Lemma h202: halts tm (kden k202).	L2751	new
2173	Lemma	`h201`	Lemma h201: halts tm (kden k201).	L2752	new
2174	Lemma	`h200`	Lemma h200: halts tm (kden k200).	L2753	new
2175	Lemma	`h199`	Lemma h199: halts tm (kden k199).	L2754	new
2176	Lemma	`h198`	Lemma h198: halts tm (kden k198).	L2755	new
2177	Lemma	`h197`	Lemma h197: halts tm (kden k197).	L2756	new
2178	Lemma	`h196`	Lemma h196: halts tm (kden k196).	L2757	new
2179	Lemma	`h195`	Lemma h195: halts tm (kden k195).	L2758	new
2180	Lemma	`h194`	Lemma h194: halts tm (kden k194).	L2759	new
2181	Lemma	`h193`	Lemma h193: halts tm (kden k193).	L2760	new
2182	Lemma	`h192`	Lemma h192: halts tm (kden k192).	L2761	new
2183	Lemma	`h191`	Lemma h191: halts tm (kden k191).	L2762	new
2184	Lemma	`h190`	Lemma h190: halts tm (kden k190).	L2763	new
2185	Lemma	`h189`	Lemma h189: halts tm (kden k189).	L2764	new
2186	Lemma	`h188`	Lemma h188: halts tm (kden k188).	L2765	new
2187	Lemma	`h187`	Lemma h187: halts tm (kden k187).	L2766	new
2188	Lemma	`h186`	Lemma h186: halts tm (kden k186).	L2767	new
2189	Lemma	`h185`	Lemma h185: halts tm (kden k185).	L2768	new
2190	Lemma	`h184`	Lemma h184: halts tm (kden k184).	L2769	new
2191	Lemma	`h183`	Lemma h183: halts tm (kden k183).	L2770	new
2192	Lemma	`h182`	Lemma h182: halts tm (kden k182).	L2771	new
2193	Lemma	`h181`	Lemma h181: halts tm (kden k181).	L2772	new
2194	Lemma	`h180`	Lemma h180: halts tm (kden k180).	L2773	new
2195	Lemma	`h179`	Lemma h179: halts tm (kden k179).	L2774	new
2196	Lemma	`h178`	Lemma h178: halts tm (kden k178).	L2775	new
2197	Lemma	`h177`	Lemma h177: halts tm (kden k177).	L2776	new
2198	Lemma	`h176`	Lemma h176: halts tm (kden k176).	L2777	new
2199	Lemma	`h175`	Lemma h175: halts tm (kden k175).	L2778	new
2200	Lemma	`h174`	Lemma h174: halts tm (kden k174).	L2779	new
2201	Lemma	`h173`	Lemma h173: halts tm (kden k173).	L2780	new
2202	Lemma	`h172`	Lemma h172: halts tm (kden k172).	L2781	new
2203	Lemma	`h171`	Lemma h171: halts tm (kden k171).	L2782	new
2204	Lemma	`h170`	Lemma h170: halts tm (kden k170).	L2783	new
2205	Lemma	`h169`	Lemma h169: halts tm (kden k169).	L2784	new
2206	Lemma	`h168`	Lemma h168: halts tm (kden k168).	L2785	new
2207	Lemma	`h167`	Lemma h167: halts tm (kden k167).	L2786	new
2208	Lemma	`h166`	Lemma h166: halts tm (kden k166).	L2787	new
2209	Lemma	`h165`	Lemma h165: halts tm (kden k165).	L2788	new
2210	Lemma	`h164`	Lemma h164: halts tm (kden k164).	L2789	new
2211	Lemma	`h163`	Lemma h163: halts tm (kden k163).	L2790	new
2212	Lemma	`h162`	Lemma h162: halts tm (kden k162).	L2791	new
2213	Lemma	`h161`	Lemma h161: halts tm (kden k161).	L2792	new
2214	Lemma	`h160`	Lemma h160: halts tm (kden k160).	L2793	new
2215	Lemma	`h159`	Lemma h159: halts tm (kden k159).	L2794	new
2216	Lemma	`h158`	Lemma h158: halts tm (kden k158).	L2795	new
2217	Lemma	`h157`	Lemma h157: halts tm (kden k157).	L2796	new
2218	Lemma	`h156`	Lemma h156: halts tm (kden k156).	L2797	new
2219	Lemma	`h155`	Lemma h155: halts tm (kden k155).	L2798	new
2220	Lemma	`h154`	Lemma h154: halts tm (kden k154).	L2799	new
2221	Lemma	`h153`	Lemma h153: halts tm (kden k153).	L2800	new
2222	Lemma	`h152`	Lemma h152: halts tm (kden k152).	L2801	new
2223	Lemma	`h151`	Lemma h151: halts tm (kden k151).	L2802	new
2224	Lemma	`h150`	Lemma h150: halts tm (kden k150).	L2803	new
2225	Lemma	`h149`	Lemma h149: halts tm (kden k149).	L2804	new
2226	Lemma	`h148`	Lemma h148: halts tm (kden k148).	L2805	new
2227	Lemma	`h147`	Lemma h147: halts tm (kden k147).	L2806	new
2228	Lemma	`h146`	Lemma h146: halts tm (kden k146).	L2807	new
2229	Lemma	`h145`	Lemma h145: halts tm (kden k145).	L2808	new
2230	Lemma	`h144`	Lemma h144: halts tm (kden k144).	L2809	new
2231	Lemma	`h143`	Lemma h143: halts tm (kden k143).	L2810	new
2232	Lemma	`h142`	Lemma h142: halts tm (kden k142).	L2811	new
2233	Lemma	`h141`	Lemma h141: halts tm (kden k141).	L2812	new
2234	Lemma	`h140`	Lemma h140: halts tm (kden k140).	L2813	new
2235	Lemma	`h139`	Lemma h139: halts tm (kden k139).	L2814	new
2236	Lemma	`h138`	Lemma h138: halts tm (kden k138).	L2815	new
2237	Lemma	`h137`	Lemma h137: halts tm (kden k137).	L2816	new
2238	Lemma	`h136`	Lemma h136: halts tm (kden k136).	L2817	new
2239	Lemma	`h135`	Lemma h135: halts tm (kden k135).	L2818	new
2240	Lemma	`h134`	Lemma h134: halts tm (kden k134).	L2819	new
2241	Lemma	`h133`	Lemma h133: halts tm (kden k133).	L2820	new
2242	Lemma	`h132`	Lemma h132: halts tm (kden k132).	L2821	new
2243	Lemma	`h131`	Lemma h131: halts tm (kden k131).	L2822	new
2244	Lemma	`h130`	Lemma h130: halts tm (kden k130).	L2823	new
2245	Lemma	`h129`	Lemma h129: halts tm (kden k129).	L2824	new
2246	Lemma	`h128`	Lemma h128: halts tm (kden k128).	L2825	new
2247	Lemma	`h127`	Lemma h127: halts tm (kden k127).	L2826	new
2248	Lemma	`h126`	Lemma h126: halts tm (kden k126).	L2827	new
2249	Lemma	`h125`	Lemma h125: halts tm (kden k125).	L2828	new
2250	Lemma	`h124`	Lemma h124: halts tm (kden k124).	L2829	new
2251	Lemma	`h123`	Lemma h123: halts tm (kden k123).	L2830	new
2252	Lemma	`h122`	Lemma h122: halts tm (kden k122).	L2831	new
2253	Lemma	`h121`	Lemma h121: halts tm (kden k121).	L2832	new
2254	Lemma	`h120`	Lemma h120: halts tm (kden k120).	L2833	new
2255	Lemma	`h119`	Lemma h119: halts tm (kden k119).	L2834	new
2256	Lemma	`h118`	Lemma h118: halts tm (kden k118).	L2835	new
2257	Lemma	`h117`	Lemma h117: halts tm (kden k117).	L2836	new
2258	Lemma	`h116`	Lemma h116: halts tm (kden k116).	L2837	new
2259	Lemma	`h115`	Lemma h115: halts tm (kden k115).	L2838	new
2260	Lemma	`h114`	Lemma h114: halts tm (kden k114).	L2839	new
2261	Lemma	`h113`	Lemma h113: halts tm (kden k113).	L2840	new
2262	Lemma	`h112`	Lemma h112: halts tm (kden k112).	L2841	new
2263	Lemma	`h111`	Lemma h111: halts tm (kden k111).	L2842	new
2264	Lemma	`h110`	Lemma h110: halts tm (kden k110).	L2843	new
2265	Lemma	`h109`	Lemma h109: halts tm (kden k109).	L2844	new
2266	Lemma	`h108`	Lemma h108: halts tm (kden k108).	L2845	new
2267	Lemma	`h107`	Lemma h107: halts tm (kden k107).	L2846	new
2268	Lemma	`h106`	Lemma h106: halts tm (kden k106).	L2847	new
2269	Lemma	`h105`	Lemma h105: halts tm (kden k105).	L2848	new
2270	Lemma	`h104`	Lemma h104: halts tm (kden k104).	L2849	new
2271	Lemma	`h103`	Lemma h103: halts tm (kden k103).	L2850	new
2272	Lemma	`h102`	Lemma h102: halts tm (kden k102).	L2851	new
2273	Lemma	`h101`	Lemma h101: halts tm (kden k101).	L2852	new
2274	Lemma	`h100`	Lemma h100: halts tm (kden k100).	L2853	new
2275	Lemma	`h99`	Lemma h99: halts tm (kden k99).	L2854	new
2276	Lemma	`h98`	Lemma h98: halts tm (kden k98).	L2855	new
2277	Lemma	`h97`	Lemma h97: halts tm (kden k97).	L2856	new
2278	Lemma	`h96`	Lemma h96: halts tm (kden k96).	L2857	new
2279	Lemma	`h95`	Lemma h95: halts tm (kden k95).	L2858	new
2280	Lemma	`h94`	Lemma h94: halts tm (kden k94).	L2859	new
2281	Lemma	`h93`	Lemma h93: halts tm (kden k93).	L2860	new
2282	Lemma	`h92`	Lemma h92: halts tm (kden k92).	L2861	new
2283	Lemma	`h91`	Lemma h91: halts tm (kden k91).	L2862	new
2284	Lemma	`h90`	Lemma h90: halts tm (kden k90).	L2863	new
2285	Lemma	`h89`	Lemma h89: halts tm (kden k89).	L2864	new
2286	Lemma	`h88`	Lemma h88: halts tm (kden k88).	L2865	new
2287	Lemma	`h87`	Lemma h87: halts tm (kden k87).	L2866	new
2288	Lemma	`h86`	Lemma h86: halts tm (kden k86).	L2867	new
2289	Lemma	`h85`	Lemma h85: halts tm (kden k85).	L2868	new
2290	Lemma	`h84`	Lemma h84: halts tm (kden k84).	L2869	new
2291	Lemma	`h83`	Lemma h83: halts tm (kden k83).	L2870	new
2292	Lemma	`h82`	Lemma h82: halts tm (kden k82).	L2871	new
2293	Lemma	`h81`	Lemma h81: halts tm (kden k81).	L2872	new
2294	Lemma	`h80`	Lemma h80: halts tm (kden k80).	L2873	new
2295	Lemma	`h79`	Lemma h79: halts tm (kden k79).	L2874	new
2296	Lemma	`h78`	Lemma h78: halts tm (kden k78).	L2875	new
2297	Lemma	`h77`	Lemma h77: halts tm (kden k77).	L2876	new
2298	Lemma	`h76`	Lemma h76: halts tm (kden k76).	L2877	new
2299	Lemma	`h75`	Lemma h75: halts tm (kden k75).	L2878	new
2300	Lemma	`h74`	Lemma h74: halts tm (kden k74).	L2879	new
2301	Lemma	`h73`	Lemma h73: halts tm (kden k73).	L2880	new
2302	Lemma	`h72`	Lemma h72: halts tm (kden k72).	L2881	new
2303	Lemma	`h71`	Lemma h71: halts tm (kden k71).	L2882	new
2304	Lemma	`h70`	Lemma h70: halts tm (kden k70).	L2883	new
2305	Lemma	`h69`	Lemma h69: halts tm (kden k69).	L2884	new
2306	Lemma	`h68`	Lemma h68: halts tm (kden k68).	L2885	new
2307	Lemma	`h67`	Lemma h67: halts tm (kden k67).	L2886	new
2308	Lemma	`h66`	Lemma h66: halts tm (kden k66).	L2887	new
2309	Lemma	`h65`	Lemma h65: halts tm (kden k65).	L2888	new
2310	Lemma	`h64`	Lemma h64: halts tm (kden k64).	L2889	new
2311	Lemma	`h63`	Lemma h63: halts tm (kden k63).	L2890	new
2312	Lemma	`h62`	Lemma h62: halts tm (kden k62).	L2891	new
2313	Lemma	`h61`	Lemma h61: halts tm (kden k61).	L2892	new
2314	Lemma	`h60`	Lemma h60: halts tm (kden k60).	L2893	new
2315	Lemma	`h59`	Lemma h59: halts tm (kden k59).	L2894	new
2316	Lemma	`h58`	Lemma h58: halts tm (kden k58).	L2895	new
2317	Lemma	`h57`	Lemma h57: halts tm (kden k57).	L2896	new
2318	Lemma	`h56`	Lemma h56: halts tm (kden k56).	L2897	new
2319	Lemma	`h55`	Lemma h55: halts tm (kden k55).	L2898	new
2320	Lemma	`h54`	Lemma h54: halts tm (kden k54).	L2899	new
2321	Lemma	`h53`	Lemma h53: halts tm (kden k53).	L2900	new
2322	Lemma	`h52`	Lemma h52: halts tm (kden k52).	L2901	new
2323	Lemma	`h51`	Lemma h51: halts tm (kden k51).	L2902	new
2324	Lemma	`h50`	Lemma h50: halts tm (kden k50).	L2903	new
2325	Lemma	`h49`	Lemma h49: halts tm (kden k49).	L2904	new
2326	Lemma	`h48`	Lemma h48: halts tm (kden k48).	L2905	new
2327	Lemma	`h47`	Lemma h47: halts tm (kden k47).	L2906	new
2328	Lemma	`h46`	Lemma h46: halts tm (kden k46).	L2907	new
2329	Lemma	`h45`	Lemma h45: halts tm (kden k45).	L2908	new
2330	Lemma	`h44`	Lemma h44: halts tm (kden k44).	L2909	new
2331	Lemma	`h43`	Lemma h43: halts tm (kden k43).	L2910	new
2332	Lemma	`h42`	Lemma h42: halts tm (kden k42).	L2911	new
2333	Lemma	`h41`	Lemma h41: halts tm (kden k41).	L2912	new
2334	Lemma	`h40`	Lemma h40: halts tm (kden k40).	L2913	new
2335	Lemma	`h39`	Lemma h39: halts tm (kden k39).	L2914	new
2336	Lemma	`h38`	Lemma h38: halts tm (kden k38).	L2915	new
2337	Lemma	`h37`	Lemma h37: halts tm (kden k37).	L2916	new
2338	Lemma	`h36`	Lemma h36: halts tm (kden k36).	L2917	new
2339	Lemma	`h35`	Lemma h35: halts tm (kden k35).	L2918	new
2340	Lemma	`h34`	Lemma h34: halts tm (kden k34).	L2919	new
2341	Lemma	`h33`	Lemma h33: halts tm (kden k33).	L2920	new
2342	Lemma	`h32`	Lemma h32: halts tm (kden k32).	L2921	new
2343	Lemma	`h31`	Lemma h31: halts tm (kden k31).	L2922	new
2344	Lemma	`h30`	Lemma h30: halts tm (kden k30).	L2923	new
2345	Lemma	`h29`	Lemma h29: halts tm (kden k29).	L2924	new
2346	Lemma	`h28`	Lemma h28: halts tm (kden k28).	L2925	new
2347	Lemma	`h27`	Lemma h27: halts tm (kden k27).	L2926	new
2348	Lemma	`h26`	Lemma h26: halts tm (kden k26).	L2927	new
2349	Lemma	`h25`	Lemma h25: halts tm (kden k25).	L2928	new
2350	Lemma	`h24`	Lemma h24: halts tm (kden k24).	L2929	new
2351	Lemma	`h23`	Lemma h23: halts tm (kden k23).	L2930	new
2352	Lemma	`h22`	Lemma h22: halts tm (kden k22).	L2931	new
2353	Lemma	`h21`	Lemma h21: halts tm (kden k21).	L2932	new
2354	Lemma	`h20`	Lemma h20: halts tm (kden k20).	L2933	new
2355	Lemma	`h19`	Lemma h19: halts tm (kden k19).	L2934	new
2356	Lemma	`h18`	Lemma h18: halts tm (kden k18).	L2935	new
2357	Lemma	`h17`	Lemma h17: halts tm (kden k17).	L2936	new
2358	Lemma	`h16`	Lemma h16: halts tm (kden k16).	L2937	new
2359	Lemma	`h15`	Lemma h15: halts tm (kden k15).	L2938	new
2360	Lemma	`h14`	Lemma h14: halts tm (kden k14).	L2939	new
2361	Lemma	`h13`	Lemma h13: halts tm (kden k13).	L2940	new
2362	Lemma	`h12`	Lemma h12: halts tm (kden k12).	L2941	new
2363	Lemma	`h11`	Lemma h11: halts tm (kden k11).	L2942	new
2364	Lemma	`h10`	Lemma h10: halts tm (kden k10).	L2943	new
2365	Lemma	`h9`	Lemma h9: halts tm (kden k9).	L2944	new
2366	Lemma	`h8`	Lemma h8: halts tm (kden k8).	L2945	new
2367	Lemma	`h7`	Lemma h7: halts tm (kden k7).	L2946	new
2368	Lemma	`h6`	Lemma h6: halts tm (kden k6).	L2947	new
2369	Lemma	`h5`	Lemma h5: halts tm (kden k5).	L2948	new
2370	Lemma	`h4`	Lemma h4: halts tm (kden k4).	L2949	new
2371	Lemma	`h3`	Lemma h3: halts tm (kden k3).	L2950	new
2372	Lemma	`h2`	Lemma h2: halts tm (kden k2).	L2951	new
2373	Lemma	`h1`	Lemma h1: halts tm (kden k1).	L2952	new
2374	Lemma	`h0`	Lemma h0: halts tm (kden k0).	L2953	new
2375	Lemma	`halt`	Lemma halt: halts tm c0.	L2954	adapted

4What a maintainer readsCheck: the rule table below is what the .v proves, and proof.md / README read cleanly for a maintainer.

submission/proof.md · informal proof (submitted copy)
submission/README.md · the package README
proof.md (working copy) · differs from the submitted copy

No heading with "rule", "carries over" or "unchanged" in proof.md.

5FamilyCheck: related machines are killed together or have a reason to be left open.

No related machine found (no parent link, table twin, follow-on row or mention).

6ChecklistCheck: every ✓ is computed; the two ○ are yours to decide; an amber ! is an optional check that did not finish.

✓
Machine string exact
the .v literal == holdout list line 32 byte for byte
✓
Statement is halts tm c0
parsed from the .v and confirmed by check_kill (theorem_text, theorem_rocq)
✓
No axioms beyond baseline
0 assumption(s); tools/assumptions_baseline.txt allows only functional_extensionality_dep
✓
coqchk finished (optional)
coqchk pass in 11095.23 s
✓
.v hash matches the checked hash
.v = checked sha256 5b83f5b1511a…; submission/ copy = checked sha256 5b83f5b1511a…
✓
No repo-local paths in the .v
comments name no path of ours (vendor/, machines/, tools/, rocq/, scripts/, reports/, atlas/, data/, journal/, /home/); busycoq's own verify/X.v is fine: none in the .v or the submission/ copy
✓
Public write-up is clean
tools/writeup_lint.py on submission/proof.md: 0 error(s)
○
proof.md reviewed by Dennis (Checkpoint B)
no Checkpoint B note from Dennis found
- proof.md L436: - Checkpoint B: no notes from Dennis on file (non-blocking).
○
Family posted together?
no other kill in the family

Generated by tools/killreview.py at 2026-10-16 13:29 PDT in 0.3 s from the files linked above; nothing in this review is hand-written except the box “How we proved it halts” (above), which quotes how_proved.md. Re-run: python3 -B tools/killreview.py 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---

Files

machines/<tm>/: 14 entries · raw notes, status, scripts, images

name	size	changed
notes.md ↓	27 KB	2026-10-13 11:33
proof.md ↓	25 KB	2026-10-14 10:07
how_proved.md ↓	1.7 KB	2026-10-14 10:51
status.json ↓	5.7 KB	2026-10-14 10:07
observe.json ↓	14 KB	2026-10-13 02:49
1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v ↓	248 KB	2026-10-14 09:17
check_kill.txt ↓	11 KB	2026-10-14 19:07
decisions/	1 item	2026-10-13 11:27
img/	8 items	2026-10-13 02:46
rocq/	8 items	2026-10-13 10:13
scripts/	22 items	2026-10-13 02:49
submission/	4 items	2026-10-14 10:07
work/	16 items	2026-10-13 11:26
rocq-plan.md ↓	17 KB	2026-10-13 09:37

status.json in full

{
 "tm": "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---",
 "label": "W5-5",
 "status": "KILLED_HALT",
 "stage": "done",
 "updated": "2026-10-14",
 "reason": "check_kill --halt PASS, independently re-verified",
 "confidence": "high",
 "killed_at": "2026-10-13T17:33:25Z",
 "template": "verify/Sk1Machines.v Module Sk1Auto (checked certificate runner: one step iterated by Eqb.N_iter_until, proved sound with N_iter_until_spec); block rules crossed with shift_rule_L/R of verify/Individual62.v",
 "halt_steps": {
  "exact": "1816824067232869945",
  "approx": "1.817e18",
  "convention": "steps including the halting transition (tools/sim convention); busycoq halts_in n = exact - 1",
  "busycoq_halts_in_n": "1816824067232869944",
  "proven_in_coq": false,
  "basis": "per-cycle step formulas (eat cost affine in c, rounds 12b + h, clean batches by congruences) summed over the same run in three independent counts (work/steps_exact/ Python + C, work/indep/); formulas validated against direct TM runs (all 1,573 cycle starts to 3e10, 14 whole cycles, the whole halting cycle = 108,456,557,258 steps, every eat at its real c); the .v proves halts tm c0 only",
  "lower_bound": "1816798040775616704",
  "halting_cycle": 611577,
  "halting_cycle_start_step": "1816823958776312687",
  "halting_round_in_cycle": 7435
 },
 "eqv_partners": [
  "1LB0LE_1RC0RE_1RD0RB_0LA0RC_1LD1LF_0LD---",
  "1LB1LF_0LC0RE_1LD0LA_1RE0RA_1RB0RD_0LB---",
  "1RB0RE_0LC0RA_1LE0LD_1LB1LF_1RA0RD_0LB---",
  "1LB0RC_1LC0LA_0RD0LB_1RA0RE_1RC1RF_0RC---",
  "1LB0RC_1LC0LA_0RD0LB_1RA0RE_1RC0RF_1LD---"
 ],
 "eqv_note": "Eqv_v2 TM291, TM392, TM1913 prove the first three equivalent to this string (tm'); Eqv_v3 TM558, TM605 prove the last two equivalent to its mirror 1LB0LE_1LC0LA_0RD0LB_1RA0RE_1RC1RF_0RC---. So all five halt. None is on the 740 list.",
 "proof": {
  "file": "proof.md",
  "public": "submission/proof.md",
  "writeup_lint": "0 errors, 0 warnings",
  "note": "written after the .v (the formalization followed rocq-plan.md and the stage notes)"
 },
 "kill": {
  "file": "1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---.v",
  "theorem": "halt : halts tm c0",
  "sha256": "5b83f5b1511a76ab796413c74d7789dfe120faeec07f57a4aa07e271cf833f39",
  "lines": 2976,
  "audited_sha256": "851ca6952fc7625758d7cfae23e62e7ecff255588bdc05f6c45e1f2a0b60ea92",
  "audited_note": "the first independent audit verified sha256 851ca695...0ea92; the 10-13 shipped file 866a5226...27f4 differed only in the comment on line 699 ('chunks of about 200,000' -> '400,000 macro steps'), diff checked, and is the sha GPT-6 Astra's audit reviewed; the current file 5b83f5b1...3f39 differs from 866a5226 only in the header comment (2026-10-14, see header_note: one line became two, so the file has 2,976 lines and every line after 25 moved down by one); the fresh check_kill below is on the current file",
  "check_kill": {
   "result": "PASS",
   "mode": "halt",
   "checked_at": "2026-10-14T16:37:56Z",
   "compile_s": 607.09,
   "native_compiler": "yes",
   "coqchk": "timeout",
   "coqchk_s": 600.13,
   "coqchk_cap_s": 600,
   "coqchk_note": "policy A: coqchk timeout is a warning; the 751 vm_check_eq chunks rest on coqc's kernel check at Qed (VM trusted, not re-checked by coqchk). A full coqchk would need several hours (3-chunk prefix: 31 s for 600k macro steps; 300.6M in all).",
   "assumptions": [],
   "log": "submission/check_kill.txt",
   "earlier_runs": "2026-10-13T18:31:15Z PASS on sha256 866a5226...27f4 (compile 613.11 s, coqchk timeout); rocq/check_kill_r1.log (formalizer, PASS, compile 609.7 s, coqchk timeout) and the independent audit run (PASS, compile 615.9 s, coqchk timeout), both on the audited sha256"
  },
  "run": {
   "checker_moves": 4942483,
   "chunks": 751,
   "eats": 611578,
   "batches": 2234211,
   "simulated_rounds": 2096694,
   "macro_steps": 300612334
  },
  "submission": "submission/",
  "discord": "none written (task: no Discord message); not posted",
  "previous_sha256": "866a52260022e4db64dfe3a3eaedb666441e097d4b1ed1af9ac1c01450a027f4",
  "astra_audit_sha256": "866a52260022e4db64dfe3a3eaedb666441e097d4b1ed1af9ac1c01450a027f4",
  "header_note": "2026-10-14: header comment corrected per GPT-6 Astra's audit patch (4,942,482 -> 4,942,483 iterations; disclosure names Anthropic and Astra's audit corrections); comments only. Astra's audit record stays on sha256 866a5226...27f4; the fresh check_kill below is on the new bytes."
 },
 "funded": {
  "option": "certify",
  "date": "2026-10-13",
  "decision": "decisions/2026-10-13-certify.json"
 },
 "siblings": [],
 "family_note": "No other 740-list machine shares the table (canon over all 6 starts, renaming + mirror). This string is tm' of Eqv_v2 TM291 (and two more Eqv_v2 modules) and its mirror appears in Eqv_v3, so a proof would also cover those equivalence partners; none of them is proved.",
 "checks": {
  "byte_exact_740": "line 29",
  "claims": "none (sheet rows carry only the class/notes; no Discord hit)",
  "upstream_9cf9e88": "not proved"
 },
 "halt_prediction": {
  "cycle": 611577,
  "c_at_cycle_start": 1218828,
  "k0_word": "010111100100001101000000000001001000101",
  "start_config": "0^inf 010111100100001101000000000001001000101 0 E> 101 0001 (001)^1218828 0^inf",
  "post_eat_word": "101111001000011010000000",
  "halting_round_in_cycle": 7435,
  "direct_steps_from_cycle_start": "108456557258 (tools/sim convention, halting transition counted)",
  "approx_total_steps": "1.82e18 (sum of 6R(R+1) over cycles = 1.8168e18, plus lower-order terms)",
  "basis": "scripts/fastabs2.c (cycle simulator), scripts/check_cycles.py (independent), scripts/directk0.c (direct final cycle); work/abstract_cycles_sampled.txt",
  "model_steps_final_cycle": "108456557258 (scripts/steps_chunk.py), equal to the direct run"
 },
 "outcome": "halts (certified in Coq: Lemma halt: halts tm c0)"
}

observe.json contract (tools/README-card.md):

2 contract warnings

diagrams[3].window: not "cells A..B, 1 px = k cells"
diagrams[4].window: not "cells A..B, 1 px = k cells"

Rendered 2026-10-16 13:29 by tools/machinepage.py from status.json, observe.json (the card), the kill files (tools/killreview.py) and the dashboard records · rebuild: python3 -B tools/card.py 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC--- (the kill review: python3 -B tools/killreview.py 1RB0RE_1RC0RA_0LD0RB_1LA0LE_1LC1LF_0LC---, which also renders a derived kill's same-machine pictures)