Idris2/tests/idris2/reg045/withparams.idr

-- Testing that 'with' works under parameters that are implicits
parameters {0 A : Type} (pred : A -> Bool)
  foo : A -> Bool
  foo x = case pred x of
    True  => False
    False => True

  bar : (x : A) -> not (pred x) = foo x
  bar  a with (pred a)
   bar a | True  = Refl
   bar a | False = Refl
Fix 'with' under implicit parameters The 'with' type and application need to treat the parameters with the same plicity, but the application has just always treated them as explicit since it never looked. It's easiest just to make them all explicit, since this isn't a user visible type. Fixes #1695. 2021-07-14 16:51:52 +03:00			`-- Testing that 'with' works under parameters that are implicits`
			`parameters {0 A : Type} (pred : A -> Bool)`
			`foo : A -> Bool`
			`foo x = case pred x of`
			`True => False`
			`False => True`

			`bar : (x : A) -> not (pred x) = foo x`
			`bar a with (pred a)`
			`bar a \| True = Refl`
			`bar a \| False = Refl`