mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 04:33:45 +03:00
50c60185a7
Co-authored-by: Guillaume ALLAIS <guillaume.allais@ens-lyon.org>
23 lines
422 B
Idris
23 lines
422 B
Idris
module AutoSearchHide2
|
|
|
|
import AutoSearchHide1
|
|
|
|
myZero : Value === 0
|
|
myZero = Refl
|
|
|
|
[OneA] A where
|
|
Value = 1
|
|
|
|
%hint
|
|
HintOneA : A
|
|
HintOneA = OneA
|
|
|
|
-- Want to use the OneA (via HintOneA) instance here.
|
|
|
|
-- `%hide` should block the auto-search from
|
|
-- including the `HintZeroA` hint into the list of solutions.
|
|
-- Thus, we don't get into the `multiple solutions` situation.
|
|
%hide HintZeroA
|
|
myOne : Value === 1
|
|
myOne = Refl
|