blob: 01aec8f29ba81f769241fa242b3f3218c58dd7a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(* Regression in computing types of branches in "match" *)
Inductive flat_type := Unit | Prod (A B : flat_type).
Inductive exprf (op : flat_type -> flat_type -> Type) {var : Type} : flat_type
-> Type :=
| Op {t1 tR} (opc : op t1 tR) (args : exprf op t1) : exprf op tR.
Inductive op : flat_type -> flat_type -> Type := a : op Unit Unit.
Arguments Op {_ _ _ _} _ _.
Definition bound_op {var}
{src2 dst2}
(opc2 : op src2 dst2)
: forall (args2 : exprf op (var:=var) src2), Op opc2 args2 = Op opc2 args2.
refine match opc2 return (forall args2, Op opc2 args2 = Op opc2 args2) with
| _ => _
end.
|
