With-Abstraction

With-abstraction was first introduced by Conor McBride [McBride2004] and lets you pattern match on the result of an intermediate computation by effectively adding an extra argument to the left-hand side of your function.

Usage

In the simplest case the with construct can be used just to discriminate on the result of an intermediate computation. For instance

  1. filter : {A : Set} (A Bool) List A List A
  2. filter p [] = []
  3. filter p (x xs) with p x
  4. filter p (x xs) | true = x filter p xs
  5. filter p (x xs) | false = filter p xs

The clause containing the with-abstraction has no right-hand side. Instead it is followed by a number of clauses with an extra argument on the left, separated from the original arguments by a vertical bar (|).

When the original arguments are the same in the new clauses you can use the ... syntax:

  1. filter : {A : Set} (A Bool) List A List A
  2. filter p [] = []
  3. filter p (x xs) with p x
  4. ... | true = x filter p xs
  5. ... | false = filter p xs

In this case ... expands to filter p (x ∷ xs). There are three cases where you have to spell out the left-hand side:

  • If you want to do further pattern matching on the original arguments.

  • When the pattern matching on the intermediate result refines some of the other arguments (see Dot patterns).

  • To disambiguate the clauses of nested with-abstractions (see Nested with-abstractions below).

Generalisation

The power of with-abstraction comes from the fact that the goal type and the type of the original arguments are generalised over the value of the scrutinee. See Technical details below for the details. This generalisation is important when you have to prove properties about functions defined using with. For instance, suppose we want to prove that the filter function above satisfies some property P. Starting out by pattern matching of the list we get the following (with the goal types shown in the holes)

  1. postulate P : {A} List A Set
  2. postulate p-nil : {A} P {A} []
  3. postulate Q : Set
  4. postulate q-nil : Q
  1. proof : {A : Set} (p : A Bool) (xs : List A) P (filter p xs)
  2. proof p [] = {! P [] !}
  3. proof p (x xs) = {! P (filter p (x xs) | p x) !}

In the cons case we have to prove that P holds for filter p (x ∷ xs) | p x. This is the syntax for a stuck with-abstraction—filter cannot reduce since we don’t know the value of p x. This syntax is used for printing, but is not accepted as valid Agda code. Now if we with-abstract over p x, but don’t pattern match on the result we get:

  1. proof : {A : Set} (p : A Bool) (xs : List A) P (filter p xs)
  2. proof p [] = p-nil
  3. proof p (x xs) with p x
  4. ... | r = {! P (filter p (x xs) | r) !}

Here the p x in the goal type has been replaced by the variable r introduced for the result of p x. If we pattern match on r the with-clauses can reduce, giving us:

  1. proof : {A : Set} (p : A Bool) (xs : List A) P (filter p xs)
  2. proof p [] = p-nil
  3. proof p (x xs) with p x
  4. ... | true = {! P (x filter p xs) !}
  5. ... | false = {! P (filter p xs) !}

Both the goal type and the types of the other arguments are generalised, so it works just as well if we have an argument whose type contains filter p xs.

  1. proof : {A : Set} (p : A Bool) (xs : List A) P (filter p xs) Q
  2. proof p [] _ = q-nil
  3. proof p (x xs) H with p x
  4. ... | true = {! H : P (x filter p xs) !}
  5. ... | false = {! H : P (filter p xs) !}

The generalisation is not limited to scrutinees in other with-abstractions. All occurrences of the term in the goal type and argument types will be generalised.

Note that this generalisation is not always type correct and may result in a (sometimes cryptic) type error. See Ill-typed with-abstractions below for more details.

Nested with-abstractions

With-abstractions can be nested arbitrarily. The only thing to keep in mind in this case is that the ... syntax applies to the closest with-abstraction. For example, suppose you want to use ... in the definition below.

  1. compare : Nat Nat Comparison
  2. compare x y with x < y
  3. compare x y | false with y < x
  4. compare x y | false | false = equal
  5. compare x y | false | true = greater
  6. compare x y | true = less

You might be tempted to replace compare x y with ... in all the with-clauses as follows.

  1. compare : Nat Nat Comparison
  2. compare x y with x < y
  3. ... | false with y < x
  4. ... | false = equal
  5. ... | true = greater
  6. ... | true = less -- WRONG

This, however, would be wrong. In the last clause the ... is interpreted as belonging to the inner with-abstraction (the whitespace is not taken into account) and thus expands to compare x y | false | true. In this case you have to spell out the left-hand side and write

  1. compare : Nat Nat Comparison
  2. compare x y with x < y
  3. ... | false with y < x
  4. ... | false = equal
  5. ... | true = greater
  6. compare x y | true = less

Simultaneous abstraction

You can abstract over multiple terms in a single with-abstraction. To do this you separate the terms with vertical bars (|).

  1. compare : Nat Nat Comparison
  2. compare x y with x < y | y < x
  3. ... | true | _ = less
  4. ... | _ | true = greater
  5. ... | false | false = equal

In this example the order of abstracted terms does not matter, but in general it does. Specifically, the types of later terms are generalised over the values of earlier terms. For instance

  1. postulate plus-commute : (a b : Nat) a + b b + a
  2. postulate P : Nat Set
  1. thm : (a b : Nat) P (a + b) P (b + a)
  2. thm a b t with a + b | plus-commute a b
  3. thm a b t | ab | eq = {! t : P ab, eq : ab b + a !}

Note that both the type of t and the type of the result eq of plus-commute a b have been generalised over a + b. If the terms in the with-abstraction were flipped around, this would not be the case. If we now pattern match on eq we get

  1. thm : (a b : Nat) P (a + b) P (b + a)
  2. thm a b t with a + b | plus-commute a b
  3. thm a b t | .(b + a) | refl = {! t : P (b + a) !}

and can thus fill the hole with t. In effect we used the commutativity proof to rewrite a + b to b + a in the type of t. This is such a useful thing to do that there is special syntax for it. See Rewrite below.

A limitation of generalisation is that only occurrences of the term that are visible at the time of the abstraction are generalised over, but more instances of the term may appear once you start filling in the right-hand side or do further matching on the left. For instance, consider the following contrived example where we need to match on the value of f n for the type of q to reduce, but we then want to apply q to a lemma that talks about f n:

  1. postulate
  2. R : Set
  3. P : Nat Set
  4. f : Nat Nat
  5. lemma : n P (f n) R
  6. Q : Nat Set
  7. Q zero =
  8. Q (suc n) = P (suc n)
  1. proof : (n : Nat) Q (f n) R
  2. proof n q with f n
  3. proof n () | zero
  4. proof n q | suc fn = {! q : P (suc fn) !}

Once we have generalised over f n we can no longer apply the lemma, which needs an argument of type P (f n). To solve this problem we can add the lemma to the with-abstraction:

  1. proof : (n : Nat) Q (f n) R
  2. proof n q with f n | lemma n
  3. proof n () | zero | _
  4. proof n q | suc fn | lem = lem q

In this case the type of lemma n (P (f n) → R) is generalised over f n so in the right-hand side of the last clause we have q : P (suc fn) and lem : P (suc fn) → R.

See With-abstraction equality below for an alternative approach.

Making with-abstractions hidden and/or irrelevant

It is possible to add hiding and relevance annotations to with expressions. For example:

  1. module _ (A B : Set) (recompute : .B .{{A}} B) where
  2. _$_ : .(A B) .A B
  3. f $ x with .{f} | .(f x) | .{{x}}
  4. ... | y = recompute y

This can be useful for hiding with-abstractions that you do not need to match on but that need to be abstracted over for the result to be well-typed. It can also be used to abstract over the fields of a record type with irrelevant fields, for example:

  1. record EqualBools : Set where
  2. field
  3. bool1 : Bool
  4. bool2 : Bool
  5. .same : bool1 bool2
  6. open EqualBools
  7. example : EqualBools EqualBools
  8. example x with bool1 x | bool2 x | .(same x)
  9. ... | true | y | eq = record { bool1 = true; bool2 = y′; same = eq }
  10. ... | false | y | eq = record { bool1 = false; bool2 = y′; same = eq }

Using underscores and variables in pattern repetition

If an ellipsis … cannot be used, the with-clause has to repeat (or refine) the patterns of the parent clause. Since Agda 2.5.3, such patterns can be replaced by underscores _ if the variables they bind are not needed. Here is a (slightly contrived) example:

  1. record R : Set where
  2. coinductive -- disallows matching
  3. field f : Bool
  4. n : Nat
  5. data P (r : R) : Nat Set where
  6. fTrue : R.f r true P r zero
  7. nSuc : P r (suc (R.n r))
  8. data Q : (b : Bool) (n : Nat) Set where
  9. true! : Q true zero
  10. suc! : ∀{b n} Q b (suc n)
  11. test : (r : R) {n : Nat} (p : P r n) Q (R.f r) n
  12. test r nSuc = suc!
  13. test r (fTrue p) with R.f r
  14. test _ (fTrue ()) | false
  15. test _ _ | true = true! -- underscore instead of (isTrue _)

Since Agda 2.5.4, patterns can also be replaced by a variable:

  1. f : List Nat List Nat
  2. f [] = []
  3. f (x xs) with f xs
  4. f xs0 | r = ?

The variable xs0 is treated as a let-bound variable with value .x ∷ .xs (where .x : Nat and .xs : List Nat are out of scope). Since with-abstraction may change the type of variables, the instantiation of such let-bound variables are type checked again after with-abstraction.

Irrefutable With

When a pattern is irrefutable, we can use a pattern-matching with instead of a traditional with block. This gives us a lightweight syntax to make a lot of observations before using a “proper” with block. For a basic example of such an irrefutable pattern, see this unfolding lemma for pred

  1. pred : Nat Nat
  2. pred zero = zero
  3. pred (suc n) = n
  4. NotNull : Nat Set
  5. NotNull zero = -- false
  6. NotNull (suc n) = -- trivially true
  7. pred-correct : n (pr : NotNull n) suc (pred n) n
  8. pred-correct n pr with suc p n = refl

In the above code snippet we do not need to entertain the idea that n could be equal to zero: Agda detects that the proof pr allows us to dismiss such a case entirely.

The patterns used in such an inversion clause can be arbitrary. We can for instance have deep patterns, e.g. projecting out the second element of a vector whose length is neither 0 nor 1:

  1. infixr 5 __
  2. data Vec {a} (A : Set a) : Nat Set a where
  3. [] : Vec A zero
  4. __ : {n} A Vec A n Vec A (suc n)
  5. second : {n} {pr : NotNull (pred n)} Vec A n A
  6. second vs with (_ v _) vs = v

Remember the example of simultaneous abstraction from above. A simultaneous rewrite / pattern-matching with is to be understood as being nested. That is to say that the type refinements introduced by the first case analysis may be necessary to type the following ones.

In the following example, in focusAt we are only able to perform the splitAt we are interested in because we have massaged the type of the vector argument using suc-+ first.

  1. suc-+ : m n suc m + n m + suc n
  2. suc-+ zero n = refl
  3. suc-+ (suc m) n rewrite suc-+ m n = refl
  4. infixr 1 _×_
  5. _×_ : {a b} (A : Set a) (B : Set b) Set ?
  6. A × B = Σ A _ B)
  7. splitAt : m {n} Vec A (m + n) Vec A m × Vec A n
  8. splitAt zero xs = ([] , xs)
  9. splitAt (suc m) (x xs) with (ys , zs) splitAt m xs = (x ys , zs)
  10. -- focusAt m (x xₘ₋₁ x xₘ₊₁ xₘ₊ₙ)
  11. -- returns ((x xₘ₋₁) , x , (xₘ₊₁ xₘ₊ₙ))
  12. focusAt : m {n} Vec A (suc (m + n)) Vec A m × A × Vec A n
  13. focusAt m {n} vs rewrite suc-+ m n
  14. with (before , focus after) splitAt m vs
  15. = (before , focus , after)

You can alternate arbitrarily many rewrite and pattern-matching with clauses and still perform a with abstraction afterwards if necessary.

Rewrite

Remember example of simultaneous abstraction from above.

  1. postulate plus-commute : (a b : Nat) a + b b + a
  2. thm : (a b : Nat) P (a + b) P (b + a)
  3. thm a b t with a + b | plus-commute a b
  4. thm a b t | .(b + a) | refl = t

This pattern of rewriting by an equation by with-abstracting over it and its left-hand side is common enough that there is special syntax for it:

  1. thm : (a b : Nat) P (a + b) P (b + a)
  2. thm a b t rewrite plus-commute a b = t

The rewrite construction takes a term eq of type lhs ≡ rhs, where _≡_ is the built-in equality type, and expands to a with-abstraction of lhs and eq followed by a match of the result of eq against refl:

  1. f ps rewrite eq = v
  2. -->
  3. f ps with lhs | eq
  4. ... | .rhs | refl = v

One limitation of the rewrite construction is that you cannot do further pattern matching on the arguments after the rewrite, since everything happens in a single clause. You can however do with-abstractions after the rewrite. For instance,

  1. postulate T : Nat Set
  2. isEven : Nat Bool
  3. isEven zero = true
  4. isEven (suc zero) = false
  5. isEven (suc (suc n)) = isEven n
  6. thm : (a b : Nat) T (a + b) T (b + a)
  7. thm a b t rewrite plus-commute a b with isEven a
  8. thm a b t | true = t
  9. thm a b t | false = t

Note that the with-abstracted arguments introduced by the rewrite (lhs and eq) are not visible in the code.

With-abstraction equality

When you with-abstract a term t you lose the connection between t and the new argument representing its value. That’s fine as long as all instances of t that you care about get generalised by the abstraction, but as we saw above this is not always the case. In that example we used simultaneous abstraction to make sure that we did capture all the instances we needed.

An alternative to that is to get Agda to remember in an equality proof that the patterns in the with clauses come from the expression you abstracted over. This is possible using the in keyword.

In the following artificial example, we try to prove that there exists two numbers such that one equals the double of the other. We start by computing the double of our input m and call it n. We can then return the nested pair containing m, n, and we now need a proof that m + m ≡ n. Luckily we used in eq when computing n as m + m and this eq is exactly the proof we need.

  1. double : Nat Σ Nat m Σ Nat n m + m n))
  2. double m with n m + m in eq = m , n , eq

For a more natural example, we prove that filter (defined at the top of this page) is idempotent. That is to say that applying it twice to an input list is the same as only applying it once.

In the filter-filter p (x ∷ xs) case, abstracting over and then matching on the result of p x allows the first call to filter p (x ∷ xs) to reduce.

In case the element x is kept (i.e. p x is true), the second call to filter on the LHS goes on to performs the same p x test. Because we have retained the proof that p x ≡ true in eq, we are able to rewrite by this equality and get it to reduce too.

This leads to just enough computation that we can finish the proof with an appeal to congruence and the induction hypothesis.

  1. filter-filter : {A} p (xs : List A) filter p (filter p xs) filter p xs
  2. filter-filter p [] = refl
  3. filter-filter p (x xs) with p x in eq
  4. ... | false = filter-filter p xs -- easy
  5. ... | true -- second filter stuck on `p x`: rewrite by `eq`!
  6. rewrite eq = cong (x _) (filter-filter p xs)

Alternatives to with-abstraction

Although with-abstraction is very powerful there are cases where you cannot or don’t want to use it. For instance, you cannot use with-abstraction if you are inside an expression in a right-hand side. In that case there are a couple of alternatives.

Pattern lambdas

Agda does not have a primitive case construct, but one can be emulated using pattern matching lambdas. First you define a function case_of_ as follows:

  1. case_of_ : {a b} {A : Set a} {B : Set b} A (A B) B
  2. case x of f = f x

You can then use this function with a pattern matching lambda as the second argument to get a Haskell-style case expression:

  1. filter : {A : Set} (A Bool) List A List A
  2. filter p [] = []
  3. filter p (x xs) =
  4. case p x of
  5. λ { true x filter p xs
  6. ; false filter p xs
  7. }

This version of case_of_ only works for non-dependent functions. For dependent functions the target type will in most cases not be inferrable, but you can use a variant with an explicit B for this case:

  1. case_return_of_ : {a b} {A : Set a} (x : A) (B : A Set b) (∀ x B x) B x
  2. case x return B of f = f x

The dependent version will let you generalise over the scrutinee, just like a with-abstraction, but you have to do it manually. Two things that it will not let you do is

  • further pattern matching on arguments on the left-hand side, and

  • refine arguments on the left by the patterns in the case expression. For instance if you matched on a Vec A n the n would be refined by the nil and cons patterns.

Helper functions

Internally with-abstractions are translated to auxiliary functions (see Technical details below) and you can always write these functions manually. The downside is that the type signature for the helper function needs to be written out explicitly, but fortunately the Emacs Mode has a command (C-c C-h) to generate it using the same algorithm that generates the type of a with-function.

Termination checking

The termination checker runs on the translated auxiliary functions, which means that some code that looks like it should pass termination checking does not. Specifically this happens in call chains like c₁ (c₂ x) ⟶ c₁ x where the recursive call is under a with-abstraction. The reason is that the auxiliary function only gets passed x, so the call chain is actually c₁ (c₂ x) ⟶ x ⟶ c₁ x, and the termination checker cannot see that this is terminating. For example:

  1. data D : Set where
  2. [_] : Nat D
  1. fails : D Nat
  2. fails [ zero ] = zero
  3. fails [ suc n ] with some-stuff
  4. ... | _ = fails [ n ]

The easiest way to work around this problem is to perform a with-abstraction on the recursive call up front:

  1. fixed : D Nat
  2. fixed [ zero ] = zero
  3. fixed [ suc n ] with fixed [ n ] | some-stuff
  4. ... | rec | _ = rec

If the function takes more arguments you might need to abstract over a partial application to just the structurally recursive argument. For instance,

  1. fails : Nat D Nat
  2. fails _ [ zero ] = zero
  3. fails _ [ suc n ] with some-stuff
  4. ... | m = fails m [ n ]
  5. fixed : Nat D Nat
  6. fixed _ [ zero ] = zero
  7. fixed _ [ suc n ] with m fixed m [ n ]) | some-stuff
  8. ... | rec | m = rec m

A possible complication is that later with-abstractions might change the type of the abstracted recursive call:

  1. T : D Set
  2. suc-T : {n} T [ n ] T [ suc n ]
  3. zero-T : T [ zero ]
  1. fails : (d : D) T d
  2. fails [ zero ] = zero-T
  3. fails [ suc n ] with some-stuff
  4. ... | _ with [ n ]
  5. ... | z = suc-T (fails [ n ])

Trying to abstract over the recursive call as before does not work in this case.

  1. still-fails : (d : D) T d
  2. still-fails [ zero ] = zero-T
  3. still-fails [ suc n ] with still-fails [ n ] | some-stuff
  4. ... | rec | _ with [ n ]
  5. ... | z = suc-T rec -- Type error because rec : T z

To solve the problem you can add rec to the with-abstraction messing up its type. This will prevent it from having its type changed:

  1. fixed : (d : D) T d
  2. fixed [ zero ] = zero-T
  3. fixed [ suc n ] with fixed [ n ] | some-stuff
  4. ... | rec | _ with rec | [ n ]
  5. ... | _ | z = suc-T rec

Performance considerations

The generalisation step of a with-abstraction needs to normalise the scrutinee and the goal and argument types to make sure that all instances of the scrutinee are generalised. The generalisation also needs to be type checked to make sure that it’s not ill-typed. This makes it expensive to type check a with-abstraction if

  • the normalisation is expensive,

  • the normalised form of the goal and argument types are big, making finding the instances of the scrutinee expensive,

  • type checking the generalisation is expensive, because the types are big, or because checking them involves heavy computation.

In these cases it is worth looking at the alternatives to with-abstraction from above.

Technical details

Internally with-abstractions are translated to auxiliary functions—there are no with-abstractions in the Core language. This translation proceeds as follows. Given a with-abstraction

\[\arraycolsep=1.4pt
\begin{array}{lrllcll}
  \multicolumn{3}{l}{f : \Gamma \to B} \\
  f ~ ps   & \mathbf{with} ~ & t_1 & | & \ldots & | ~ t_m \\
  f ~ ps_1 & | ~ & q_{11} & | & \ldots & | ~ q_{1m} &= v_1 \\
  \vdots \\
  f ~ ps_n & | ~ & q_{n1} & | & \ldots & | ~ q_{nm} &= v_n
\end{array}\]

where \Delta \vdash ps : \Gamma (i.e. \Delta types the variables bound in ps), we

  • Infer the types of the scrutinees t_1 : A_1, \ldots, t_m : A_m.

  • Partition the context \Delta into \Delta_1 and \Delta_2 such that \Delta_1 is the smallest context where \Delta_1 \vdash t_i : A_i for all i, i.e., where the scrutinees are well-typed. Note that the partitioning is not required to be a split, \Delta_1\Delta_2 can be a (well-formed) reordering of \Delta.

  • Generalise over the t_i s, by computing

    C = (w_1 : A_1)(w_1 : A_2')\ldots(w_m : A_m') \to \Delta_2' \to B'

    such that the normal form of C does not contain any t_i and

    ![Ai’[w_1 := t_1 \ldots w{i - 1} := t_{i - 1}] \simeq A_i

    (\Delta_2’ \to B’)w_1 := t_1 \ldots w_m := t_m] \simeq \Delta_2 \to B

    where X \simeq Y is equality of the normal forms of X and Y. The type of the auxiliary function is then \Delta_1 \to C.

  • Check that \Delta_1 \to C is type correct, which is not guaranteed (see below).

  • Add a function f_{aux}, mutually recursive with f, with the definition

    \[\arraycolsep=1.4pt
\begin{array}{llll}
  \multicolumn{4}{l}{f_{aux} : \Delta_1 \to C} \\
  f_{aux} ~ ps_{11} & \mathit{qs}_1 & ps_{21} &= v_1 \\
  \vdots \\
  f_{aux} ~ ps_{1n} & \mathit{qs}_n & ps_{2n} &= v_n \\
\end{array}\]

    where \mathit{qs}_i = q_{i1} \ldots q_{im}, and ps_{1i} : \Delta_1 and ps_{2i} : \Delta_2 are the patterns from ps_i corresponding to the variables of ps. Note that due to the possible reordering of the partitioning of \Delta into \Delta_1 and \Delta_2, the patterns ps_{1i} and ps_{2i} can be in a different order from how they appear ps_i.

  • Replace the with-abstraction by a call to f_{aux} resulting in the final definition

    \[\arraycolsep=1.4pt
\begin{array}{l}
  f : \Gamma \to B \\
  f ~ ps = f_{aux} ~ \mathit{xs}_1 ~ ts ~ \mathit{xs}_2
\end{array}\]

    where ts = t_1 \ldots t_m and \mathit{xs}_1 and \mathit{xs}_2 are the variables from \Delta corresponding to \Delta_1 and \Delta_2 respectively.

Examples

Below are some examples of with-abstractions and their translations.

  1. postulate
  2. A : Set
  3. _+_ : A A A
  4. T : A Set
  5. mkT : x T x
  6. P : x T x Set
  7. -- the type A of the with argument has no free variables, so the with
  8. -- argument will come first
  9. f : (x y : A) (t : T (x + y)) T (x + y)
  10. f x y t with x + y
  11. f x y t | w = {!!}
  12. -- Generated with function
  13. f-aux : (w : A) (x y : A) (t : T w) T w
  14. f-aux w x y t = {!!}
  15. -- x and p are not needed to type the with argument, so the context
  16. -- is reordered with only y before the with argument
  17. f : (x y : A) (p : P y (mkT y)) P y (mkT y)
  18. f x y p with mkT y
  19. f x y p | w = {!!}
  20. f-aux : (y : A) (w : T y) (x : A) (p : P y w) P y w
  21. f-aux y w x p = {!!}
  22. postulate
  23. H : x y T (x + y) Set
  24. -- Multiple with arguments are always inserted together, so in this case
  25. -- t ends up on the left since its needed to type h and thus x + y isnt
  26. -- abstracted from the type of t
  27. f : (x y : A) (t : T (x + y)) (h : H x y t) T (x + y)
  28. f x y t h with x + y | h
  29. f x y t h | w | w = {! t : T (x + y), goal : T w !}
  30. f-aux : (x y : A) (t : T (x + y)) (h : H x y t) (w : A) (w : H x y t) T w
  31. f-aux x y t h w w = {!!}
  32. -- But earlier with arguments are abstracted from the types of later ones
  33. f : (x y : A) (t : T (x + y)) T (x + y)
  34. f x y t with x + y | t
  35. f x y t | w | w = {! t : T (x + y), w : T w₁, goal : T w !}
  36. f-aux : (x y : A) (t : T (x + y)) (w : A) (w : T w₁) T w
  37. f-aux x y t w w = {!!}

Ill-typed with-abstractions

As mentioned above, generalisation does not always produce well-typed results. This happens when you abstract over a term that appears in the type of a subterm of the goal or argument types. The simplest example is abstracting over the first component of a dependent pair. For instance,

  1. postulate
  2. A : Set
  3. B : A Set
  4. H : (x : A) B x Set
  1. bad-with : (p : Σ A B) H (fst p) (snd p)
  2. bad-with p with fst p
  3. ... | _ = {!!}

Here, generalising over fst p results in an ill-typed application H w (snd p) and you get the following type error:

  1. fst p != w of type A
  2. when checking that the type (p : Σ A B) (w : A) H w (snd p) of
  3. the generated with function is well-formed

This message can be a little difficult to interpret since it only prints the immediate problem (fst p != w) and the full type of the with-function. To get a more informative error, pointing to the location in the type where the error is, you can copy and paste the with-function type from the error message and try to type check it separately.

[McBride2004]

C. McBride and J. McKinna. The view from the left. Journal of Functional Programming, 2004. http://strictlypositive.org/vfl.pdf.