Skip to content

Commit df95c8f

Browse files
authored
1 parent e3d4c11 commit df95c8f

2 files changed

Lines changed: 0 additions & 3 deletions

File tree

Cslib/Computability/Automata/NA/Concat.lean

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -49,7 +49,6 @@ lemma concat_run_left {xs : ωSequence Symbol} {ss : ωSequence (State1 ⊕ Stat
4949
obtain ⟨t1, h_mtr, _⟩ := h_ind (by grind)
5050
obtain ⟨t1', h_tr, _⟩ : ∃ t1', na1.Tr t1 (xs n) t1' ∧ ss (n + 1) = inl t1' := by
5151
grind [concat, hc.trans n]
52-
use t1'
5352
grind [LTS.MTr.stepR na1.toLTS h_mtr h_tr]
5453

5554
lemma concat_run_left_right {xs : ωSequence Symbol} {ss : ωSequence (State1 ⊕ State2)}

Cslib/Computability/Automata/NA/Loop.lean

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -53,13 +53,11 @@ lemma loop_run_left_right {xs : ωSequence Symbol} {ss : ωSequence (Unit ⊕ St
5353
obtain ⟨t, _⟩ := isRight_iff.mp <| h2 1 (by grind) (by grind)
5454
obtain ⟨s, _⟩ : ∃ s, na.Tr s (xs 0) t ∧ s ∈ na.start := by
5555
grind [FinAcc.loop, h.start, h.trans 0]
56-
use s, t
5756
grind
5857
case succ m h_ind =>
5958
obtain ⟨s, t, h_mtr, _⟩ := h_ind (by grind) (by grind)
6059
obtain ⟨t', _⟩ := isRight_iff.mp <|h2 (m + 1 + 1) (by grind) (by grind)
6160
have h_tr : na.Tr t (xs (m + 1)) t' := by grind [FinAcc.loop, h.trans (m + 1)]
62-
use s, t'
6361
grind [LTS.MTr.stepR na.toLTS h_mtr h_tr]
6462

6563
lemma loop_run_left_right_left {xs : ωSequence Symbol} {ss : ωSequence (Unit ⊕ State)}

0 commit comments

Comments
 (0)