diff options
| author | barras | 2007-07-24 15:04:12 +0000 |
|---|---|---|
| committer | barras | 2007-07-24 15:04:12 +0000 |
| commit | a0256a0012011ef685797c0bd4a92f6dd320f626 (patch) | |
| tree | feeaef0dc41fe3e9f6128ec2739fa12b064683f2 | |
| parent | 0db0531fde66678f60d54df60be1337a7f489000 (diff) | |
fixed bug 1675: computing carrier from the relation type was not right
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10043 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/setoid_ring/Ring_tac.v | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/contrib/setoid_ring/Ring_tac.v b/contrib/setoid_ring/Ring_tac.v index 8a5aef564d..d5fc5f3485 100644 --- a/contrib/setoid_ring/Ring_tac.v +++ b/contrib/setoid_ring/Ring_tac.v @@ -145,8 +145,15 @@ Ltac ParseRingComponents lemma := (* ring tactics *) +Ltac relation_carrier req := + let ty := type of req in + match eval hnf in ty with + ?R -> _ => R + | _ => fail 1000 "Equality has no relation type" + end. + Ltac FV_hypo_tac mkFV req lH := - let R := match type of req with ?R -> _ => R end in + let R := relation_carrier req in let FV_hypo_l_tac h := match h with @mkhypo (req ?pe _) _ => mkFV pe end in let FV_hypo_r_tac h := |