mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-15 14:23:32 +03:00
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
|