blob: e25e5a1be565dd2efac3c31f9e6cf2ffa8b2d8ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* The following code used to trigger an anomaly in functor substitutions *)
Module Type Foo.
Parameter Inline t : nat.
End Foo.
Module F(X : Foo).
Tactic Notation "foo" ref(x) := idtac.
Ltac g := foo X.t.
End F.
Module N.
Definition t := 0 + 0.
End N.
Module K := F(N).
|
