From 06e16ec6a913f216ef43a3a32e7094c6e83d40ef Mon Sep 17 00:00:00 2001 From: Helmut Grohne Date: Fri, 14 Dec 2012 12:03:04 +0100 Subject: un-inline different-drop --- Precond.agda | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Precond.agda b/Precond.agda index 44512b3..76875a7 100644 --- a/Precond.agda +++ b/Precond.agda @@ -56,7 +56,7 @@ different-∉ x (y ∷ ys) p (there pxs) = different-∉ x ys (different-drop y different-assoc : {m n : ℕ} → (u : Vec (Fin n) m) → (v : Vec Carrier m) → all-different u → ∃ λ h → assoc u v ≡ just h different-assoc [] [] p = empty , refl -different-assoc (u ∷ us) (v ∷ vs) p with different-assoc us vs (λ i j i≢j → p (suc i) (suc j) (i≢j ∘ suc-injective)) +different-assoc (u ∷ us) (v ∷ vs) p with different-assoc us vs (different-drop u us p) different-assoc (u ∷ us) (v ∷ vs) p | h , p' = insert u v h , (begin assoc (u ∷ us) (v ∷ vs) ≡⟨ refl ⟩ -- cgit v1.2.3