eb15c08ea0
When elaborating the headers of mutual indexed inductive types, mvars have to be synthesized and instantiated before replacing the fvars present there. Otherwise, some fvars present in uninstantiated mvars may be missed and lead to an error later. Closes #3242 (again)
21 lines
588 B
Text
21 lines
588 B
Text
mutual
|
||
inductive A (α : Type) : α → Type where
|
||
|
||
inductive B (α : Type) : α → Type where
|
||
end
|
||
|
||
mutual
|
||
inductive R (F: α → α → Prop) (a : α) : α → Prop where
|
||
| ind : ∀ (f: Nat → α) b, (∀ n, And₂ F a b f n) → R F a b
|
||
|
||
inductive And₂ (F: α → α → Prop) (a : α) : α → (Nat → α) → Nat → Prop where
|
||
| mk (b : α) (f : Nat → α) (n : Nat): R F a (f n) → F (f n) b → And₂ F a b f n
|
||
end
|
||
|
||
structure Salg (n k: Nat) where
|
||
D: Type
|
||
|
||
mutual
|
||
inductive Ins (salg: Salg n k) : salg.D → Prop
|
||
inductive Out (salg: Salg n k) : salg.D → Prop
|
||
end
|