test-suite/ssr/set_polyuniv.v


1
2
3
4
5
6
7
8
9
10
11

From Coq Require Import ssreflect.
Set Default Proof Using "Type".

Local Set Universe Polymorphism.

Axiom foo : Type -> Prop.

Lemma test : foo nat.
Proof.
set x := foo _. (* key @foo{i} matches @foo{j} *)
Abort.